@x =('192.172.226.77');

#$/;
foreach $ipaddress (@x)
        {
        $command = 'http://netgeo.caida.org/perl/netgeo.cgi/netgeo.cgi?method=ge
tLatLong\&target='.$ipaddress.'\&.cgifields=method\&.cgifields=nonblocking';
        @foo = `lwp-request $command`;
        for $line (@foo)
                {
                chomp $line;
                $line =~ s/<br>//g;
                if ($line =~ /^(LAT:)/)
                        {
                        $lat = $line;
                        $lat =~ s/^LAT://g;
                        if ($lat < 0) {$lat = int($lat+180)}
                        else {$lat = int($lat+0)}
                        }
                elsif ($line =~ /^(LONG:)/)
                        {
                        $long = $line;
                        $long =~ s/^LONG://g;
                        if ($long < 0) {$long = int($long+180)}
                        else {$long = int($long+0)}
                        }
                }
        }
print "Lat: $lat\tLong: $long";