#!/usr/bin/perl

use SOAP::Lite +trace ;
use Data::Dumper;

my $soap = SOAP::Lite
    ->proxy('https://certificatemanager.comodo.com:443/ws/EPKIManagerSSL')
    ->uri('https://certificatemanager.comodo.com:443/ws/EPKIManagerSSL');

my $method = SOAP::Data->name('getWebServiceInfo');
if($response->fault){
    print $response->faultcode, " ", $response->faultstring, "\n";
    die 'Terminating program';
}else{
        my @results=@{$response->result};
        print Dumper @results;
}

##</code><code>##

<SOAP-ENV:Envelope 
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" 
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" 
xmlns:xsd="http://www.w3.org/1999/XMLSchema" 
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Body>
<getWebServiceInfo/>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

##</code><code>##

<faultstring>Cannot find dispatch method for {}getWebServiceInfo</faultstring>

##</code><code>##

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ssl="http://ssl.ws.epki.comodo.com/">
   <soapenv:Header/>
   <soapenv:Body>
      <ssl:getWebServiceInfo/>
   </soapenv:Body>
</soapenv:Envelope>