>perl lockdemo-select.pl locker: flock LOCK_EX locker: locked locker: sleep 10 using select main: alarm 5 main: flock LOCK_EX main: timeout at lockdemo-select.pl line 30. main: 5 seconds have passed locker: flock LOCK_UN locker: unlocked locker ran for 10 seconds >