use IO::Select;
use IO::Socket;
use strict;

my $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
my $sel = new IO::Select( $lsn );
my $rc= $sel->select ($sel,undef,undef, 2.2);

#my $s= IO::Select->new();
#my $rc= $s->select (undef,undef,undef, 2.2);

print "\$rc=<$rc>\n";
print "\$! <$!>\n";
print "\$@ <$@>\n";

##</code><code>##

tuser> echo "x" |nc localhost 8080
##</code><code>##

$rc=<3>;
$! <Illegal seek>
$@ <>
tuser>