my $URLtoPostTo="http://www.cbs.dtu.dk/cgi-bin/search.cgi";
my %Fields = (
    "configfile"  =>  "/usr/opt/www/pub/CBS/services/NetMHC-3.0/NetMHC.cf",
    "SEQPASTE" =>    ">gi|15607143|Rv0001|ref|NP_214515.1| chromosomal replication initiation protein [Mycobacterium tuberculosis H37Rv]
MTDDPGSGFTTVWNAVVSELNGDPKVDDGPSSDANLSAPLTPQQRAWLNLVQPLTIVEGFALLSVPSSFV
QNEIERHLRAPITDALSRRLGHQIQLGVRIAPPATDEADDTTVPPSENPATTSPDTTTDNDEIDDSAAAR
GDNQHSWPSYFTERPHNTDSATAGVTSLNRRYTFDTFVIGASNRFAHAAALAIAEAPARAYNPLFIWGES
GLGKTHLLHAAGNYAQRLFPGMRVKYVSTEEFTNDFINSLRDDRKVAFKRSYRDVDVLLVDDIQFIEGKE
GIQEEFFHTFNTLHNANKQIVISSDRPPKQLATLEDRLRTRFEWGLITDVQPPELETRIAILRKKAQMER
LAVPDDVLELIASSIERNIRELEGALIRVTAFASLNKTPIDKALAEIVLRDLIADANTMQISAATIMAAT
AEYFDTTVEELRGPGKTRALAQSRQIAMYLCRELTDLSLPKIGQAFGRDHTTVMYAQRKILSEMAERREV
FDHVKELTTRIRQRSKR",
  "peptide" => "on",
   "peplen" => 9,
   "alleles" => "A0202",
  "sort" => "on",
);

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

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

print "Content-type: text/html\n\n";

if ($Page->is_success) 
{ 
      my $content= $Page->content;
      print "$content","\n";
}