Select Code to Download

use Tie::File;
tie my @array, 'Tie::File', $filename or die $!;
...
while (defined( my $line = $array[$l] )) {
    print "<$line>\n";
} continue { $l++ }

open my $fh, '<', $filename or die "$filename: $!";
scalar <$fh> for 1..9;  # skip 9 lines
...
    print "<$_>\n";
}
close $fh;