Select Code to Download

    my $canWrite= IO::Select->new( $sock );
    my $hasError= IO::Select->new( $sock );
...
            warn "Can't write to socket ($_): $!\n";
        }
    }