use Geo::IPfree
$db = 'ipscountry.dat';
my $geo = Geo::IPfree->new([$db]);
my ($code1, $name1) = $geo->LookUp('200.176.3.142');