Select Code to Download

while(<@eachline>){

$ perl -MO=Deparse -e'while(<@eachline>){}'
use File::Glob ();
...
    ();
}
-e syntax OK

$ perl -le'my @eachline = ( "one two three four\n", "five six seven ei
+ght\n" ); while(<@eachline>){print}'
one
...
six
seven
eight

use strict; 
use warnings;
...

close $FILEHANDLE;