Select Code to Download

   $sock = IO::Socket::SSL->new(
      LocalAddr => $ssl_addr,
...

... some other code ...
}