@ready = $sel->can_read(0.0001);
        foreach my $socket (@ready) {
            ...
        }
        my @wready = $sel->can_write(0.0001);
        my $wsocket;
        foreach $wsocket (@wready) {
            ...
        }

##</code><code>##

        my ($rready, $wready) = IO::Select->select($sel, $sel);

        foreach my $rsocket (@$rready) {
            ...
        }

        foreach my $wsocket (@$wready) {
            ...
        }