Help for this page

Select Code to Download


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

warn "\n---NORMAL FATAL\n";
$x=0/0;
  2. or download this
    
---EVALED FATAL
...
 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.