if (select($rout = $rin, undef, undef, undef))
           {