Простое легкое стихотворение на perl

                        
if(defined $life){

  for(@propertis){/kindness/;}

}else{die 

"A error of headpiece.";}



unless(`greed --money` 

  || ($kindness eq 'true')){

  die "I`m sorry mammy";

}print HEART "The world, hello!!!";