erickn@isfe:/home/erickn> cat y 
$SIG{__DIE__} = sub { print $_[0] };

die "hi";



erickn@isfe:/home/erickn> perl y
hi at y line 4.
hi at y line 4.