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.

##</code><code>##

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.