Select Code to Download

Uses the value of EXPR as a filename and executes the contents of the 
+file as a Perl script. Its primary use is to include subroutines from
+ a Perl subroutine library. 

...

    scalar eval `cat stat.pl`;

do ("print");
print $!, "\n" if $!;

do print;
print $!, "\n" if $!;

$_ = 1;
do print;
print "\n";
print $!, "\n" if $!;

$_ = 1;
do (print);
print "\n";
print $!, "\n" if $!;