Select Code to Download

sub new_from_socket
{
...
    return scalar(%arg) ? $sock->configure(\%arg)
            : $sock;
}

use Socket;

...
}

use IO::Socket::Socks;