print SELF new_crc($file),$/;
    seek SELF, 0, 1;
    truncate(SELF, tell SELF);