$VAR1 = bless( {
                 '_content' => 'Can\'t connect to api-ssl.bitly.com:443
    LWP::Protocol::https::Socket: SSL connect attempt failed with unknown error error:0D0C50A1:asn1 encoding routines:ASN1_item_verify:unknown message digest algorithm at /usr/local/share/perl/5.10.1/LWP/Protocol/http.pm line 51.
    ', '_rc' => 500,
                 '_headers' => bless( {
                                        'client-warning' => 'Internal response',
                                        'client-date' => 'Wed, 15 Apr 2015 18:08:08 GMT',
                                        'content-type' => 'text/plain'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'Can\'t connect to api-ssl.bitly.com:443',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'https://api-ssl.bitly.com/v3/shorten?login=LOGIN&apiKey=API_KEY&longurl=LONG_URL')}, 'URI::https' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/6.04'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'GET'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );