#!/usr/bin/perl 
#use strict; 
use LWP::UserAgent;  
use XML::Simple; 
use XML::Parser; 
use Data::Dumper; 

# this is the RPC call:  
$xml_file = '<?xml version="1.0" encoding="UTF-8"?>  
<SOAP-ENV:Envelope   SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"   	xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"   	xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"    
	xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"   	xmlns:xsd="http://www.w3.org/1999/XMLSchema" >  
<SOAP-ENV:Header xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">  
<wsse:Security SOAP-ENC:root="1">  
<wsse:UsernameToken>  
<wsse:Username xsi:type="xsd:string"><Removed></wsse:Username>  
<wsse:Password xsi:type="xsd:string"><Removed></wsse:Password>  
</wsse:UsernameToken>  
</wsse:Security>  
</SOAP-ENV:Header>  
<SOAP-ENV:Body>  
<ns1:retrieveTrafficStats xmlns:ns1="http://service.stats.ws.waas.cisco.com" SOAP-ENC:root="1">  
<name><removed></name>  
<objType>wae</objType>  
<trafficType>optimized</trafficType>  
<direction>outbound</direction>  
<timeframe> <startTime xsi:type="xsd:string">2010-09-27T12:00:00</startTime>  
<endTime xsi:type="xsd:string">2010-09-27T14:00:00</endTime>  
<frequency xsi:type="xsd:string">lasthour</frequency>  
<timezone xsi:type="xsd:string">utc</timezone>  
</timeframe>  
</ns1:retrieveTrafficStats>  
</SOAP-ENV:Body>  
</SOAP-ENV:Envelope>';  
my $server      =  '<removed>';  
my $port        =  '8443';  
my $RPCPath  =  '/ws/TrafficStats';  
my $uri = 'https://' . $server . ':' . $port . $RPCPath;  
my $ua = LWP::UserAgent->new;  
# we need to authenticate the https connection:  
$ua->credentials( "", "TrafficStats", "admin", "default" ); 
$ua->ssl_opts("verify_hostname" =>"0");  
my $header = HTTP::Headers->new;  
$header->header('SOAPAction' => '"retrieveTrafficStats"');  
# this is to define what SOAP RPC call we are making  

my $request = HTTP::Request->new("POST",$uri,$header );  
$request->content($xml_file);  
my $response = $ua->request($request);  
print $response->content;  

my $output = new XML::Simple(); 
#my $output = new XML::Parser(Style => 'Debug'); 
$xmlout = $response->content; 


$result=$output->XMLin($xmlout); 

print "result dumper\n"; 
print Dumper($result); 
print "result dumper\n";