#!/usr/bin/env perl

use SOAP::Lite; 
my $WSDL = 'http://www.ebi.ac.uk/Tools/webservices/wsdl/WSFasta.wsdl'; 
my $fasta_client = SOAP::Lite->service($WSDL); 
my %params=(); 

$params{'program'}='fasta3'; 
$params{'database'}='uniprot';
$params{'email'}='teresam@ebi.ac.uk';

$data={type=>"sequence",
        content=>"uniprot:slpi_human"}; 

my $jobid = $fasta_client->runFasta(
                   SOAP::Data->name('params')->type(map=>\%params), 
                   SOAP::Data->name( content => [$data])); 

print $fasta_client->poll($jobid);