4 my ($latitude, $longitude, $name) = @_;
5 #would be nice to pass in customer or prospect name too...
7 my $kml = Geo::GoogleEarth::Pluggable->new;
8 $kml->Point( map { $_=>scalar($cgi->param($_)) } qw( name lat lon ) );
10 #http_header('Content-Type' => 'application/vnd.google-earth.kml+xml' ); #kml
11 http_header('Content-Type' => 'application/vnd.google-earth.kmz' ); #kmz