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 $no_error = my ($r_ready, $w_ready, $e_ready) =
    IO::Select->select($sel, undef, undef, 2.2);

if ($no_error) {
    print("No error\n");
    print("Num readers ready: ", 0+@$r_ready, "\n");
    print("Num writers ready: ", 0+@$w_ready, "\n");
    print("Num errors  ready: ", 0+@$e_ready, "\n");
} else {
    print("Error ", 0+$!, ": $!\n");
}