fcntl(FILEHANDLE, F_SETLKW, pack("sslli", F_WRLCK, SEEK_SET, 0, 0, 0));