Help for this page

Select Code to Download

Select or download this

sub in_eval {
   my $i=0;
...
}
...
die @_ if defined $^S ? $^S : in_eval;