D-rsp:
$VAR1 = bless( {
     '_content' => '500 EOF
',
     '_rc' => 500,
     '_headers' => bless( {
                'client-warning' => 'Internal response',
                'client-date' => 'Thu, 13 Apr 2006 05:04:04 GMT',
                'content-type' => 'text/plain'
              }, 'HTTP::Headers' ),
     '_msg' => 'EOF',
     '_request' => bless( {
                '_content' => 'Email=brig.johnson&Passwd=a3512j&null=Sign+in',
                '_uri' => bless( do{\(my $o = 'https://www.google.com/accounts/ServiceLoginBoxAuth')}, 'URI::https' ),
                '_headers' => bless( {
                           'user-agent' => 'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4',
                           'content-type' => 'application/x-www-form-urlencoded'
                         }, 'HTTP::Headers' ),
                '_method' => 'POST'
              }, 'HTTP::Request' )
         }, 'HTTP::Response' );

code: '500'