Select Code to Download

 
$^S

...
    false (0)   Otherwise

The first state may happen in $SIG{__DIE__} and $SIG{__WARN__} handler
+s.

#!/usr/bin/perl
use strict;
...

print "\nNATURAL END OF PROGRAM : ",$contaerrori," WARN",($contaerrori
+ eq 1 ? '' : 'S' )," IN $0\n";

#A
print $a."\n";
...
        local $SIG{'__DIE__'} = 'DEFAULT';
        die "default die : $@";
}

#A
[WARN] Use of uninitialized value in concatenation (.) or string at wa
+rn-die.pl line 18.
...
    Perl interpreter     1 (Executing an eval)
    CONTINUE RUNNING