open SRC, "$source";
open IDX, ">$source.offset";
binmode IDX;
while(<SRC>) {
    print IDX pack 'N', tell SRC;
}