gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $referer = 'http://www.phosphosite.org/sequenceLogoAction.do';
my $url = 'http://www.phosphosite.org/sequenceLogoSubmitAction.do';

my $req = POST(
        $url,
        Content_Type => 'form-data',
        Content => [
                sequenceFile => ['./A2.txt'] ,
                title => 'A2.txt',
                logowidth => 18,
                logoheight => 10,
                firstnum => -6,
                algorithm => 'freqTimesLogFold',
                logounits => 'cm',
                logostart => '',
                logoend => ''
        ],
);

$req->referer($referer);

my $ua = LWP::UserAgent->new;
$ua->timeout(15);
$ua->agent('Mozilla');

my $response = $ua->request($req);

if ($response->is_success) {
        print $response->content,"\n";
}
else{
        print $response->status_line . "\n";
}