eval { # dangerous code}
if ($@) {
   print "It up and died: $@\n";
}