use strict;
use warnings;

use IO::Select qw( );
use IO::Socket qw( );

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

my ($r_ready, $w_ready, $e_ready) =
    IO::Select->select($sel, undef, undef, 2.2)
    or die("Can't select: (" . (0+$!) . ") $!\n");

if (@$r_ready + @$w_ready + @$e_ready == 0) {
    print("Timeout\n");
} else {
    print("Num readers ready: ", 0+@$r_ready, "\n");
    print("Num writers ready: ", 0+@$w_ready, "\n");
    print("Num errors  ready: ", 0+@$e_ready, "\n");
}