Select Code to Download

open (my $handle, '<', $file) or die "Can't read '$file': $!";
my $contents = do { local $/; <$file> };

my $pos = 0;
while (<$handle>){
...
    }
    $pos += $line_len;
}