Select Code to Download

use Socket;

...
    connect( $fh, $paddr );
    alarm(0);
};

use Socket;
use IO::Socket::Socks;
...
    );
}
# now reconcile $fh and $s.