eval {
      do_stuff();
   }
   if (not $@) {
      print "Successful!\n";
   } else
      print "Error: $@\n";
   }