Select Code to Download

DllExport unsigned int
win32_alarm(unsigned int sec)
...
    }
    return 0;
}

static LRESULT
win32_process_message(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lPara
+m)
...

    return 0;
}

>perl lockdemo.pl
locker: flock LOCK_EX
...
main: 5 seconds have passed
locker: flock LOCK_UN
locker: unlocked