Select Code to Download

# header
1
...
4
5
6

use Tie::File;
tie @f, 'Tie::File', "file.txt" or die $!;
foreach (@f[1..$#f]) {
    print $_, "\n";
}

1
2
...
4
5
6