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

##</code><code>##

"ipscountry.dat" is not exported by the Geo::IPfree module
Can't continue after import errors at Geo_IP_Free.pl line 2
BEGIN failed--compilation aborted at Geo_IP_Free.pl line 2, <DATA> line 260.