#!perl -w
# Enable Perl warnings
#use strict;
use warnings;
use Data::Dumper;

# SOAP::Lite module
use SOAP::Lite;
#use SOAP::Lite +trace;
#SOAP::Lite->import(+trace => qw(debug));

# WSDbfetch WSDL URL
my $WSDL = 'http://bioinformatics.istge.it:8080/axis/services/sws.getSites?wsdl';

# Create the service interface
my $soap = new SOAP::Lite
	->service($WSDL)
    ->proxy('http://bioinformatics.istge.it:8080/',
      timeout => 600, # Client HTTP connection timeout
      proxy => ['http' => 'http://bioinformatics.istge.it:8080/axis/services/'], # HTTP proxy config
    )
	->on_fault(
	# Map SOAP faults to Perl exceptions (i.e. die).
	sub {
		my $soap = shift;
		my $res  = shift;
		if ( ref($res) eq '' ) {
			die($res);
		}
		else {
			die( $res->faultstring );
		}
		return new SOAP::SOM;
	}
  );

# Build the parameters structure
my %params=();
$params{'site'} = "EBI";

 
# Create SOAP objects from the input data and parameters data structures
my $paramsData = SOAP::Data->name('params')->type(map=>\%params);

my $output = $soap->runAndWaitFor($paramsData);

print $output;