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