#!/usr/bin/perl -w

use strict;
use warnings;
use LWP;

my $htmlInput = ">Prot1\nQAFAYQLSNGIPIESWFMDKNDNELLKLIPFLEKLVELNEDVRPHIRDRFRLHDLLPPD\n
>Prot2\nMRLRTRKASQ\n";

my $browser = LWP::UserAgent->new(timeout => 0);
$browser->env_proxy;
my $content = $browser->post('http://www.genebee.msu.su/cgi-bin/nph-malign.pl', ["SEQ" => $htmlInput]);
print $content->content;