my $offsets = '';
while (<$fh>) {
    my $offset = tell $fh;
    $offsets .= pack 'N', $offset;
};