Select Code to Download

open FILE, 'test_file.txt' || die "$!\n";
my $text = join( '', @{ [ <FILE> ] } );
close FILE;

my $text;
{
...
   local $/;
   $text = <$fh>;
}