Select Code to Download

#!/usr/bin/perl -l

...
}

print "after";

before
fileno before local: 1
fileno after open: 3
740300.pl
after

#!/usr/bin/perl -l

...
}

print "after";

$ perl 740300.pl
before
...

$ cat file.txt
740300.pl

#!/usr/bin/perl -l

...
}

print "after";