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

my $target='https://genecascade.org/QE/MT37_102/MTQE_start.cgi';

# no mail notifcations:
my $email='';
# send notifications to this address:
# my $email='YOURMAIL@YOUR_ORGANISATION.ORG'; 


my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->request(POST  $target,
	'Content_Type' => 'multipart/form-data',
	'Accept' => 'application/json',
	'Content' => [
		filename => ['MTQE_example_vcf.vcf'],
		email=>$email
	]
);

if ($response->is_success) {
    print $response->decoded_content;  
}
else {
    die $response->status_line;
}