Select Code to Download

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

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

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