Select Code to Download

use Errno qw/EAGAIN EINTR/ ;
...
## lock acquired
##

alarm(5) ; # five seconds
$success = semop
...
if( !$sucess && $result == EINTR ) {
   # timed out
}