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

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

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