eval { dangerous() }
if ($@) {
   print "dangerous died with the error: $@\n";
}