Select Code to Download

{
    local $/; # slurp in a file
...
while (<$fh>){
   ...
}

c:\@Work\Perl\monks\pmpmmpmp>perl -wMstrict -le
"open my $fh, '<', 'junk.txt' or die $!;
...
>>
<<line 3 blah yada
>>