fcntl(FILEHANDLE, F_SETLKW, pack("s!s!l!l!i!", F_WRLCK, SEEK_SET, 0, 0, 0));