EVOLUTION-MANAGER

Edit File: region.pl

#!/usr/bin/perl use Test; use Geo::IP; my $gi = Geo::IP->open("/usr/local/share/GeoIP/GeoIPRegion.dat", GEOIP_STANDARD); while (<DATA>) { chomp; my ($country, $region) = $gi->region_by_name($_); print join("\t",$_,$country,$region) . "\n"; } __DATA__ 12.10.1.4 66.108.94.158 yahoo.com amazon.com 4.2.144.64 202.6.131.17