#!/usr/bin/perl
use strict; use warnings;
use lib 'Geo-IPinfo/lib';
use Geo::IPinfo;
my $token = '1234567';
my $ipinfo = Geo::IPinfo->new($token);
my $data = $ipinfo->info('8.8.8.8');
if (defined $data) # valid data returned { print "Information about IP 8.8.8.8:\n"; for my $key (sort keys %{$data} ) { printf "%10s : %s\n", $key, $data->{$key}; } print "\n" } else # invalid data obtained, show error message { print $ipinfo->error_msg . "\n"; }
my $city = $ipinfo->field('8.8.8.8', 'city');
print "The city of 8.8.8.8 is $city\n";