erickn@isfe:/home/erickn> cat x

$SIG{__DIE__} = sub { print $_[0] };

eval {
   die "hi";
};



erickn@isfe:/home/erickn> perl x
hi at x line 5.