use strict;
use DBI;

my %seen;
my $dbh = DBI->connect("dbi:mysql:ipinfo","hd","hd");
die "unable to connect to database" unless ($dbh);
# kml header
print qq{<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
\t<Document>
};

print qq{<Style id="a">};
print qq{<IconStyle>};
print
qq{<Icon><href>http://maps.google.com/mapfiles/ms/icons/green-dot.png</h
ref></Icon>};
print qq{</IconStyle>};
print qq{ </Style>};

# loop over access_log lines
while(<>) {
   # does it look like an access log entry?
   next unless
(/^(\d+)\.(\d+)\.(\d+)\.(\d+).*\[([^\]]+)\]\s+"(\S+)\s+(\S+)\s+HTTP\/\d.
\d/);
   my($a,$b,$c,$d,$date,$method,$uri)=($1,$2,$3,$4,$5,$6,$7);
   # make sure we have a good ip address
   next if ($a < 0 || $a > 255 || $b < 0 || $b > 255 ||
            $c < 0 || $c > 255 || $d < 0 || $d > 255);
   # did we see this IP already?
   next if $seen{"$a.$b.$c.$d"}++;
   # compute value for ipinfo lookup
   my($val)=(($a*256+$b)*256+$c)*256;
   # fetch ipinfo data
   my($r)=$dbh->selectall_arrayref(qq{select
country_code,region_code,city,latitude,longitude
       from ip_group_city where ip_start <= $val order by ip_start desc
limit 1});
   # no iearth.google.complacemark!
   next if !defined($r);
   print qq{\t\t<Placemark>\n};
   print qq{\t\t\t<name>$a.$b.$c.$d</name>\n};
   print qq{\t\t\t<styleUrl>#a</styleUrl>\n};
 #    print qq{\t\t\t<description>$a.$b.$c.$d</description>\n};
   print qq{\t\t\t<description><![CDATA[};
   print qq{<b>$method $uri from $r->[0]->[0]/$r->[0]->[1]/$r->[0]->[2]
at <i>$date</i><br />};
   print qq{]]></description>\n};
   print qq{\t\t\t<Point>\n};
   print
qq{\t\t\t\t<coordinates>$r->[0]->[4],$r->[0]->[3]</coordinates>\n};
   print qq{\t\t\t</Point>\n};
   print qq{\t\t</Placemark>\n};
   print qq{\t\t\n};
}
# kml trailer
print qq{\t</Document>
</kml>
};
$dbh->disconnect();

I am still playing with your code. saw the co-ordinates move to a 0,0. so trying to figure that part out.

Oh and you could also create style icons instead of placemarks if you wanted to ( that way you can separate/represent different request types with different icons )

http://maps.google.com/mapfiles/ms/icons/red-dot.png

Cheers – Tobias

PS: something (or somebody) does not want to keep the <= characters together – I added a warning in the code and need to figure out what keeps on inserting that extra space …

There is small typo in the code though. not really a typo more of a space.

here ip_start < = $val
should be
here ip_start <= $val

otherwise we get
here ip_start select country_code from ip_group_city where ip_start < = 14203352 order by ip_start desc limit 1;
ERROR 1064 (42000): You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ‘= 14203352 order by ip_start desc limit 1′ at line 1