gistfile1.pl

sub api_request {
        my ($auth, $command, $args ) = @_;
        my $authstr;
        my $port;
        $args ||= {};

        my $server = $auth->{'server'};
        my $access_hash = $auth->{'hash'};
        my $user = $auth->{'user'};

        $authstr = "WHM ${user}:${access_hash}";
        $port = 2087;

        my $http = HTTP::Tiny->new(
                'default_headers' => {
                        'Authorization' => $authstr,
                },
        ); 
        my $url = "https://${server}:${port}/json-api/${command}";

        my $res = $http->post_form($url, $args);

        if ( !exists $res->{'content'} ) {
                print "Could not read response from $server\n";
                return;
        }

        eval {
                $res->{'decoded_content'} = JSON::Syck::Load($res->{'content'});
        }; 
        if ( $@ ) {
                print "Could not decode content from $server\n";
        }
        return $res;
}