# perl ssl.pl
$VAR1 = bless( {
                  '_content' => '500 Can\'t connect to www.microsoft.com:443 (connect: Network is unreachable) ',
                  '_rc' => 500,
                  '_headers' => bless( {
                                         'client-warning' => 'Internal response',
                                         'client-date' => 'Fri, 18 Aug 2017 08:51:50 GMT',
                                         'content-type' => 'text/plain'
                                       }, 'HTTP::Headers' ),
                  '_msg' => 'Can\'t connect to www.microsoft.com:443 (connect: Network is unreachable)',
                  '_request' => bless( {
                                         '_content' => '',
                                         '_uri' => bless( do{\(my $o = 'https://www.microsoft.com/uk-ua/')}, 'URI::https' ),
                                         '_headers' => bless( {
                                                               
 'user-agent' => 'Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.90 Safari/537.36'
                                                              }, 'HTTP::Headers' ),
                                         '_method' => 'GET'
                                       }, 'HTTP::Request' )
                }, 'HTTP::Response' );