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