copy $src_file, $tmp1_fh or die "$ERRNO\n"; seek $tmp1_fh,0,0;