Select Code to Download

my $slurp;
{
local $/ = undef;
...
$slurp = <$textfile>;
close $textfile;
}

open my $textfile, '<', 'filename.txt' or die $!;
while ( my $line = <$textfile> )
{
  ## Do something with $line
}