use Carp 'cluck';
$SIG{__DIE__}=sub {cluck "called in '",(caller(1))[3],"'\n\n" };


warn "\n---EVALED FATAL\n";
eval { $x=0/0 } or print ">>> $@";


warn "\n---NORMAL FATAL\n";
$x=0/0;

##</code><code>##


---EVALED FATAL
called in '(eval)'

 at /tmp/tst.pl line 2
	main::__ANON__('Illegal division by zero at /tmp/tst.pl line 6.\x{a}') called at /tmp/tst.pl line 6
	eval {...} called at /tmp/tst.pl line 6
>>> Illegal division by zero at /tmp/tst.pl line 6.

---NORMAL FATAL
called in ''

 at /tmp/tst.pl line 2
	main::__ANON__('Illegal division by zero at /tmp/tst.pl line 10.\x{a}') called at /tmp/tst.pl line 10
Illegal division by zero at /tmp/tst.pl line 10.