#!/usr/bin/perl use Geo::IP; my ($gi); my ($gidb) = "/usr/local/share/GeoIP/GeoLiteCity.dat"; my ( $ip, $count, $record ); my ( $lat, $long, $city, $key, $country ) = ( 0, 0, '', '', '' ); $gi = Geo::IP->open( $gidb, GEOIP_STANDARD ) or die "Unable to open GeoIP database $gidb\n"; $record = $gi->record_by_addr('201.78.239.59'); print $record->country_code."\n". $record->country_code3."\n". $record->country_name."\n". $record->region."\n". $record->city."\n". $record->latitude."\n". $record->longitude;