Select Code to Download

open DF,"test.txt";
binmode DF;
my @test = <DF>;
...
binmode DF;
print DF $rec;
close DF;

open DF,"test.txt";
my @test=<DF>;
close DF;
...
binmode DF;
print DF $rec;
close DF;