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