Select Code to Download

P:\test>perl
print __LINE__, "\n";
...
Died at (eval 1) line 3.

7

#! perl -slw
use strict;
...
Died at main eval @ line 6 line 3.

14