eval
    {
        my $sock    = IO::Socket::INET->new( %http_argz );

        IO::Socket::SSL->start_SSL
        (
            $sock
          , %https_argz
        );

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