]#!/usr/bin/perl 

use strict; 
use SOAP::Lite +trace => 'debug'; 
use SOAP::WSDL;
my $NS= "urn:FortiAnalyzerWS"; 
my $WSDL_URL= "https://10.0.111.1:8080/FortiAnalyzerWS?wsdl"; 
my $URI= "https://10.0.111.1:8080/FortiAnalyserWS"; 
my $PROXY=$URI; 

my $USERNAME="soap"; 
my $PASSWORD="soap"; 

my $Client = SOAP::Lite 
->service($WSDL_URL) 
->proxy($PROXY); 

$Client->readable(1); 

my $Serializer = $Client->serializer(); 
$Serializer->register_ns($NS, 'ns2'); 

my $header = SOAP::Data->name("ns2:Header" => 
\SOAP::Data->value( 
SOAP::Data->name("ns2:UserName" => $USERNAME), 
SOAP::Data->name("ns2:Password" => $PASSWORD) 
) 
) 
; 

my $body = 
SOAP::Data->name("ns2:Body" => 
\SOAP::Data->value( 
SOAP::Data->name("ns2:FortiAnalyzerGetArchive" => 
\SOAP::Data->value( 
SOAP::Data->name('ns2:Type' => 'IPS') 
->type('ns2:ArchiveTypes') 
, 
SOAP::Data->name('ns2:DeviceID' => 'FGT60C3G11022932') 
->type('ns2:string63') 
, 
SOAP::Data->name('ns2:FileName' => '670277741') 
->type('ns2:string63') 
, 
SOAP::Data->name('ns2:Compression' => 'None') 
->type('ns2:CompressionType') 
, 
SOAP::Data->name('ns2:Password' => '') 
->type('ns2:string255') 
) 
) 
) 
) 
; 

#my $body = SOAP::Data->name("ns2:Body" => 
# \SOAP::Data->value( 
# SOAP::Data->name("ns2:FortiAnalyzerGetSystemStatus") 
# ) 
# ) 
#; 

my $Response = $Client->call( SOAP::Data->name('ns2:FortiRequestEl') 
=> ($header, $body) 
); 
print $Response->result();