$rin = $win = $ein = '';
vec($rin,fileno(STDIN),1) = 1;
$ein = $rin | $win;

($nfound,$timeleft) =
      select($rout=$rin, $wout=$win, $eout=$ein, $timeout);