sub ip2city {
my $ip = shift;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)");
my $req = HTTP::Request->new(GET => \'http://ipgeoinfo.com/?ip=\'.$ip);
my $res = $ua->request($req);
my $nurl = $res->content;
my @tmp = split(/\\n/,$nurl);
$tmp[128] =~ s/< .+?>//gi;
$tmp[128] =~ s/ //gi;
return $tmp[128]
}
# Здесь я думаю все понятно, получили IP, запросили, спарсили результат.