Select Code to Download

curl --verbose 'https://foo.bar.net/bim/bam'
*   Trying 10.10.10.10...
...
* Received HTTP code 503 from proxy after CONNECT
* Closing connection 0
curl: (56) Received HTTP code 503 from proxy after CONNECT

my $sock = IO::Socket::INET->new(...) or die $!;
IO::Socket::SSL->start_SSL($sock,%sslargs) or die $SSL_ERROR;
$sock->stop_SSL or die $SSL_ERROR;

my $sock = IO::Socket::SSL->new(
    PeerAddr => ...
    SSL_startHandshake => 0,
    %sslargs
) or die $!;

    eval
    {
...

        print $sock "GET / HTTP/1.0\r\n\r\n";
    };