Select Code to Download

open(FH,"file.txt");
while(<FH>)
...
        print "$var\n";
}
close(FH);

open(FH,"file.txt");
my $var;
...
        $var .= $_;
}
close(FH);