Select Code to Download

$SIG{__DIE__} = sub {
    Dump( $obj->{val}->{one} );
...
my $obj =  foo->new;
#  dies here
$obj->val = "foo";

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;