seek "$fh", $offset, 0 or die "Report seek error,           
    offset:$offset - $!";