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

my $target='https://genecascade.org/MutationTaster2025/cgi-bin/MT_VCF_Pipeline.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;
}
