alarm(5) ; # five seconds
$success = semop
$result = int $! ; # capture the value of errno 
alarm(0) ; # cancel alarm(if still active)
if( !$sucess && $result == EINTR ) {
   # timed out
}