Select Code to Download

  eval {
    something_that_might_die();
  };
  print "Caught: $@" if $@;

  die "exception!\n";

  package Thing;
  sub new { bless {}, shift }
...
    undef $b;
  };
  print "Caught: $@\n" if $@;

  Thing=HASH(0x811b24c) is dying

  Thing=HASH(0x811b24c) is dying!
  Caught:         (in cleanup) Thing=HASH(0x811b24c) died