#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my @x =('192.172.226.77');

foreach my $ipaddress (@x)
{
    my $url =
        "http://netgeo.caida.org/perl/netgeo.cgi/netgeo.cgi?".
        "method=getLatLong&target=$ipaddress&.cgifields=method&.cgifields=nonblocking";
    my $result= get( $url );
    my ( $lat, $long ) = ( $result=~  /LAT:\s+(-?\d+\.\d+).*LONG:\s+(-?\d+\.\d+)/s );
    $lat  += 180 if $lat  < 0;
    $long += 180 if $long < 0;
    print "Address: $ipaddress\tLat: $lat\tLong: $long\n";
}