#!/usr/bin/env perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;

$URL="http://www.ebi.ac.uk/Tools/webservices/rest/submit";

my %params=();
$params{'tool'}="iprscan";
$params{'sequence'}="uniprot:slpi_human";
$params{'seqtype'}="P";
$params{'email'}="teresam@ebi.ac.uk";
@args=%{\%params};

$ua= LWP::UserAgent->new(); 
#$submit_url= URI::URL->new($URL); 
$resp = $ua->request( POST $URL , 'Content' => \@args);  
print $resp->content();
print "\n";