gistfile1.pl

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '{"status":-3,"appstatus":-128,"statusstring":"No connections.","appstatusstring":null,"results":[]}',
                 '_rc' => 200,
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'content-type' => 'application/json;charset=utf-8',
                                        'client-response-num' => 1,
                                        'server' => 'Jetty(7.6.1.v20120215)'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'OK',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'http://ipaddress/api/1.0/?Procedure=@SystemInformation&Parameters=[\'DEPLOYMENT\']')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'MyApp/0.1 libwww-perl/5.833'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'GET',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );