Junco Data Dump after logging in

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 '_rc' => '302',
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'client-response-num' => 1,
                                        'location' => 'http://jothut.com/dvlp/junco',
                                        'set-cookie' => [
                                                          'dvlpjuncouserid=67; domain=.jothut.com; path=/',
                                                          'dvlpjuncousername=1381704866; domain=.jothut.com; path=/',
                                                          'dvlpjuncosessionid=EA2SqYIqhPmRenpMoZS9tA; domain=.jothut.com; path=/',
                                                          'dvlpjuncocurrent=1; domain=.jothut.com; path=/'
                                                        ],
                                        'date' => 'Sun, 13 Oct 2013 22:54:26 GMT',
                                        'client-peer' => '72.52.127.70:80',
                                        'content-length' => '0',
                                        'client-date' => 'Sun, 13 Oct 2013 22:54:26 GMT',
                                        'content-type' => 'text/x-perl',
                                        'server' => 'Apache'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'Found',
                 '_request' => bless( {
                                        '_content' => 'password=d!enymyy&email=1381704866%40test.com',
                                        '_uri' => bless( do{\(my $o = 'http://jothut.com/cgi-bin/d16augjunco.pl/login')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/5.834',
                                                               'content-type' => 'application/x-www-form-urlencoded',
                                                               'content-length' => 45
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'POST',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );

#junco
#testing
From JR's : articles
122 words - 2516 chars
created on Oct 13, 2013 at 08:00:45 pm - #
source - versions