use strict;
use LWP::UserAgent ();
use HTTP::Request::Common;
my $target='https://genecascade.org/MutationTaster2025/modperl/API.cgi';

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' => [
		variants => '1:25409063A>G,
			19:23844937CA>C,
			21:33039603A>C,
			21:33039620G>A,
			3:150645894A>C,
			3:150645893C>G,
			3:150645893G>C,
			11:67789294C>CC,
			1:69511A>G',
		format =>'tsv'
	]
);

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

__END__
