access Haplogrep compatible input from a Genbank id

gb_client.pl

#!/usr/bin/perl                                                                                                                                                                                                                                                                                                                                             
use LWP::UserAgent;
use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(timeout => 1800); #a half-hour                                                                                                                                                                                                                                                                                          

my $request = POST 'http://mitomaster.mitomap.org/cgi-bin/websrvc.cgi', [
    gb => $ARGV[0],
    fileType => 'id',
    output => 'hsd'
    ];

my $response = $userAgent->request($request);
print $response->error_as_HTML . "\n" if $response->is_error;

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

usage:
perl gb_client.pl JX153710.1