Proxy Detection Legacy Web Service

#!/usr/bin/env perl

use strict;
use warnings;

use Encode qw( decode );
use Getopt::Long;
use LWP::UserAgent;
use URI;
use URI::QueryParam;

my $license_key = 'YOUR_LICENSE_KEY';
my $ip_address  = '24.24.24.24';

GetOptions(
    'license:s' => \$license_key,
    'ip:s'      => \$ip_address,
);

my $uri = URI->new('https://minfraud.maxmind.com/app/ipauth_http');
$uri->query_param( l => $license_key );
$uri->query_param( i => $ip_address );

my $ua = LWP::UserAgent->new( timeout => 5 );
my $response = $ua->get($uri);

die 'Request failed with status ' . $response->code()
    unless $response->is_success();

my %proxy = map { split /=/, $_ } split /;/, $response->content();

if ( defined $proxy{err} && length $proxy{err} ) {
    die "MaxMind returned an error code for the request: $proxy{err}\n";
}
else {
    print "\nMaxMind Proxy data for $ip_address\n\n";
    for my $field ( sort keys %proxy ) {
        print sprintf( "  %-20s  %s\n", $field, $proxy{$field} );
    }
    print "\n";
}

#!/usr/bin/env python

import argparse
import requests
import sys

parser = argparse.ArgumentParser(description='MaxMind Proxy Detection web service client')
parser.add_argument('--license', default='YOUR_LICENSE_KEY')
parser.add_argument('--ip', default='24.24.24.24')

args = parser.parse_args()

payload = {'l': args.license, 'i': args.ip};
response = requests.get('https://minfraud.maxmind.com/app/ipauth_http', params=payload)

if response.status_code != requests.codes.ok:
    sys.stderr.write("Request failed with status %s\n" % response.status_code)
    sys.exit(1)

proxy = dict( f.split('=') for f in response.text.split(';') )

if 'err' in proxy and len(proxy['err']):
    sys.stderr.write("MaxMind returned an error code for the request: %s\n" % proxy['err'])
    sys.exit(1)
else:
    print "\nMaxMind Proxy data for %s\n\n" % args.ip
    for (key, val) in proxy.items():
        print "  %-20s  %s" % (key, val)
    print "\n"

#!/usr/bin/php

<?php
$license_key = 'LICENSE_KEY_HERE';
$ipaddress   = 'IP_ADDRESS_HERE';
$query = "https://minfraud.maxmind.com/app/ipauth_http?l=" . $license_key
    . "&i=" . $ipaddress;
$score = file_get_contents($query);
echo $score;

Dim objHttp, strQuery
strQuery = "https://minfraud.maxmind.com/app/ipauth_http?l=" & license_key & _
    "&i=" & ipaddress
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHttp.open "GET", strQuery, false
objHttp.send
Response.Write objHttp.ResponseText
Set objHttp = Nothing