my $nfound = select ($fout=$fin, undef, undef, 5);