my $nfound = select($read, undef, undef, undef);