Select Code to Download

open (FH, "foo.txt") ;
while (<FH>) {
...
}
close FH;
print "@lines1\n";

...
close FH;
my @lines1 = split(' ', @lines);
print "\@lines1 is @lines1";