Коль жизнь определена. 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!!!";