eval{&i_will_die};
if(defined($@)){
  # handle the error
}

sub i_will_die
{
   die "Life stinks, I give up\n";
}