open IN, "<", $textfile or die "Can't open textfile: $!";
binmode IN;
open IDX, ">", "$textfile.idx" or die "Can't create index file: $!";
binmode IDX;
print IDX pack "N", 0;
while(<IN>) {
    print IDX, pack "N", tell IN;
}