$VAR1 = bless( {
  '_protocol' => 'HTTP/1.1',
  '_content' => '',
  '_rc' => '302',
  '_headers' => bless( {
    'client-response-num' => 1,
    'cache-control' => 'no-store',
    'location' => 'https://jt-sa-01/dana-admin/misc/admin.cgi',
    'set-cookie' => [
      'DSASSERTREF=x; path=/; expires=Thu, 01 Jan 1970 22:00:00 GMT; secure',
      'DSID=0f3004797e779893378f666af21f9a26; path=/; secure',
      'DSFirstAccess=1277234276; path=/; secure'
    ],
    'date' => 'Tue, 22 Jun 2010 19:17:56 GMT',
    'client-ssl-cert-issuer' => '/C=??/ST=??/L=??/O=SLT/OU=??/CN=changemyip.net/emailAddress=??',
    'client-ssl-cipher' => 'RC4-SHA',
    'client-peer' => '10.64.221.51:443',
    'client-date' => 'Tue, 22 Jun 2010 21:21:18 GMT',
    'client-ssl-warning' => 'Peer certificate not verified',
    'content-type' => 'text/html; charset=utf-8',
    'pragma' => 'no-cache',
    'client-ssl-cert-subject' => '/C=??/ST=??/L=??/O=SLT/OU=??/CN=changemyip.net/emailAddress=??',
    'client-transfer-encoding' => [
      'chunked'
    ],
    'expires' => '-1'
  }, 'HTTP::Headers' ),
  '_msg' => 'Moved',
  'handlers' => {
    'response_data' => [
      {
        'callback' => sub { "DUMMY" }
      },
      {
        'callback' => sub { "DUMMY" }
      }
    ]
  },
  '_request' => bless( {
    '_content' => 'username=admindb&password=dana123&realm=Admin%20Users',
    '_uri' => bless( do{\(my $o = 'https://jt-sa-01/dana-na/auth/url_admin/login.cgi')}, 'URI::https' ),
    '_headers' => bless( {
      'user-agent' => 'libwww-perl/5.820',
      'content-type' => 'application/x-www-form-urlencoded'
    }, 'HTTP::Headers' ),
    '_method' => 'POST',
    '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
  }, 'HTTP::Request' )
}, 'HTTP::Response' );

##</code><code>##

$VAR1 = bless( {
  '_previous' => bless( {
    '_previous' => bless( {
      '_previous' => bless( {
        '_previous' => bless( {
          '_protocol' => 'HTTP/1.1',
          '_content' => '',
          '_rc' => '302',
          '_headers' => bless( {
            'client-response-num' => 1,
            'cache-control' => 'no-store',
            'location' => 'https://jt-sa-01/dana-admin/misc/admin.cgi',
            'set-cookie' => [
              'DSASSERTREF=x; path=/; expires=Thu, 01 Jan 1970 22:00:00 GMT; secure',
              'DSID=10a4e7edf63570a214bce369cacaced1; path=/; secure',
              'DSFirstAccess=1277232586; path=/; secure'
            ],
            'date' => 'Tue, 22 Jun 2010 18:49:46 GMT',
            'client-ssl-cert-issuer' => '/C=??/ST=??/L=??/O=SLT/OU=??/CN=changemyip.net/emailAddress=??',
            'client-ssl-cipher' => 'RC4-SHA',
            'client-peer' => '10.64.221.51:443',
            'client-date' => 'Tue, 22 Jun 2010 20:53:01 GMT',
            'client-ssl-warning' => 'Peer certificate not verified',
            'content-type' => 'text/html; charset=utf-8',
            'pragma' => 'no-cache',
            'client-ssl-cert-subject' => '/C=??/ST=??/L=??/O=SLT/OU=??/CN=changemyip.net/emailAddress=??',
            'client-transfer-encoding' => [
              'chunked'
            ],
            'expires' => '-1'
          }, 'HTTP::Headers' ),
          '_msg' => 'Moved',
          'handlers' => {
            'response_data' => [
              {
                'callback' => sub { "DUMMY" }
              },
              {
                'callback' => sub { "DUMMY" }
              }
            ]
          },
          '_request' => bless( {
            '_content' => 'username=admindb&password=dana123&realm=Admin%20Users',
            '_uri' => bless( do{\(my $o = 'https://jt-sa-01/dana-na/auth/url_admin/login.cgi')}, 'URI::https' ),
            '_headers' => bless( {
              'user-agent' => 'libwww-perl/5.820',
              'content-type' => 'application/x-www-form-urlencoded'
            }, 'HTTP::Headers' ),
            '_method' => 'POST',
            '_uri_canonical' => $VAR1->{'_previous'}{'_previous'}{'_previous'}{'_previous'}{'_request'}{'_uri'}
          }, 'HTTP::Request' )
        }, 'HTTP::Response' ),
        '_msg' => 'Found',
        'handlers' => {
          'response_data' => [
            {
              'callback' => sub { "DUMMY" }
            },
            {
              'callback' => $VAR1->{'_previous'}{'_previous'}{'_previous'}{'_previous'}{'handlers'}{'response_data'}[1]{'callback'}
            }
          ]
        },