Select Code to Download

open IN, "bigfile.txt";
open  IDX, ">bigfile.idx";
...
while(<IN>) {
    print IDX pack "N", tell IN;
}

my $lineno = 10000;

...
sysread IDX, (my $buffer), 4;
seek IN, unpack("N", $buffer), 0;
my $line = <IN>;