#!/usr/bin/perl

# Tratando de crear un programa que lea, realices unas condiciones y crea un nuevo archivo xlsx con el resultado 
use strict;
use warnings;
system qw"cls";


use Geo::KML::PolyMap qw(generate_kml_file generate_kmz_file);


my $poly = "((144.9659,-37.8136),(144.9577,-37.81864),(144.9707,-37.8146),(144.9659,-37.8136))";

my $data = 'DCR ';

my $entities = { data => $data,
				 polygon => $poly};
		

# Clusters "Total Population" data for "Foobar City" in $entities into 5 bins;
# renders using colors from $startcolor to $endcolor;
# generates a legend; renders output to file handle passed in $kmz_filehandle
generate_kmz_file(entities => $entities,
                  placename => "Foobar City",
                  data_desc => "Total Population",
                  nbins => 5,
                  kmzfh => 'C:\Myperl\data\maptest.kml',
                  startcolor => "FFFF0000",
                  endcolor => "FF00FF00");
 
# As above, but without a legend
generate_kml_file(entities => $entities,
                  placename => "Foobar City",
                  data_desc => "Total Population",
                  nbins => 5,
                  kmlfh => 'C:\Myperl\data\maptest.kml',
                  startcolor => "FFFF0000",
                  endcolor => "FF00FF00");