Help for this page

Select Code to Download


  1. or download this
    # ...
my $lineNum;
...
BEGIN { SetLineNum }
__END__
# ...
  2. or download this
    my $file= '"' . __FILE__ . '"';
eval join " ", "\n#line", 1+__LINE__, $file, "\n", <<END, "; 1" or die
+ $@;
...
END