#!/usr/bin/perl

use LWP::UserAgent;

my ($r, $p) = @ARGV;
if(!defined($p)) {
	print "Usage: $0 host port\n";
	exit;
}

print "checking $r to port $p ...";

my $ua = LWP::UserAgent->new(keep_alive => 1,
                             timeout => 5,
                            );
$ua->proxy('http', "http://$r:$p/");

$response = $ua->get('http://google.com/');
if($response->is_success) { 
	print "$r is an open relay on port $p\n"; 
} else { 
	print "not an open relay\n"; 
}