while( my( $nfound, $timeleft) = select( ..., $timeout ) ) {
    if( $timeleft ) {
         ## Nothing doing, do some housekeeping
    }
    else {
        ## deal with the event
    }
}