<h2>Edit File: ip2cc</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl

eval &#039;exec /usr/bin/perl  -S $0 ${1+&quot;$@&quot;}&#039;
    if 0; # not running under some shell
use strict;
$^W=1;

my $VERSION = &#039;2.28&#039;;

use IP::Country;
use Geography::Countries;
use Socket qw ( inet_aton inet_ntoa );

getRevDate();
if ($#ARGV == 0){
    getCountry($ARGV[0]);
} else {
    print &quot;&gt; &quot;;
    while(my $host = &lt;&gt;){
	chomp($host);
	getCountry($host);
	print &quot;&gt; &quot;;
    }
}
print &quot;\n&quot;;    

sub getCountry
{
    my $host = shift;
    my $dip = $host; # dotted IP
    my $ip = inet_aton($host);
    
    my ($cc,$country);
    if (defined $ip){
	my $reg = IP::Country-&gt;new();
	$cc = $reg-&gt;inet_ntocc($ip);
	$dip = inet_ntoa($ip);
    }

    if (!defined $cc){
	$cc = &#039;??&#039;;
	$country = &#039;Not Found&#039;;
    } elsif ($cc eq &#039;**&#039;){
	$country = &#039;Private Network&#039;;
    } elsif ($cc eq &#039;AP&#039;){
	$country = &#039;Asia-Pacific&#039;;
    } elsif ($cc eq &#039;EU&#039;){
	$country = &#039;European Union&#039;;
    } else {
	$country = country($cc);
    }

    if (!defined $country){
	$country = &#039;Undefined&#039;;
    }
    
    if ($dip eq $host){
	print &quot;  Address: $host\n  Country: $cc ($country)\n&quot;;
    } else {
	print &quot;  Name: $host\n  Address: $dip\n  Country: $cc ($country)\n&quot;;
    }
}

sub getRevDate
{
    my $reg = IP::Country-&gt;new();
    my $tm = gmtime($reg-&gt;db_time());
    print &quot;\n  IP::Country modules (v$VERSION)\n  Copyright (c) 2002-13 Nigel Wetters Gourlay\n&quot;;
    print &quot;  Database updated $tm\n\n&quot;;
}

__END__

=head1 NAME

ip2cc - lookup country from IP address or hostname

=head1 SYNOPSIS

ip2cc [host-to-find]

=head1 DESCRIPTION

Ip2cc is a program to lookup countries of IP addresses. Ip2cc
has two modes: interactive and non-interactive.  Interactive mode allows
the user to query more than one hostname.  Non-interactive mode is
used to print just the country for a single host.

=head1 ARGUMENTS

Interactive mode is entered when no arguments are given.

Non-interactive mode is used when the name or Internet address of the
host to be looked up is given as the first argument.

=head1 SEE ALSO

IP::Country - the fast database used by this script.

=head1 AUTHOR

Nigel Wetters Gourlay &lt;nwetters@cpan.org&gt;

</textarea><br><input type="hidden" name="edit_file" value="ip2cc"><input type="submit" value="Save"></form>