********************************************
#!/usr/bin/perl

my $URLtoPostTo="http://tools.immuneepitope.org/tools/bcell/bcell_Prediction";


my %Fields = (
   "swId"  =>  "P02185",
   "sequence" => ">sp|P02185|MYG_PHYCA Myoglobin OS=Physeter catodon GN=MB PE=1 SV=2
MVLSEGEWQLVLHVWAKVEADVAGHGQDILIRLFKSHPETLEKFDRFKHLKTEAEMKASE
DLKKHGVTVLTALGAILKKKGHHEAELKPLAQSHATKHKIPIKYLEFISEAIIHVLHSRH
PGDFGADAQGAMNKALELFRKDIAAKYKELGYQG",
   "method" => '5'
);

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

my $Browser = new LWP::UserAgent;
if($BrowserName) { $Browser->agent($BrowserName); }

my $Page = $Browser->request(POST $URLtoPostTo,\%Fields);

if ($Page->is_success)
{
        print $Page->content;
}
else
{
        print "HTTP request failure \n";
        print $Page->message;
}

**********************************************************