Select Code to Download

<?xml version='1.0' encoding='UTF-8'?>
 <Document>
...
    </Point>
</Placemark>
</Document>

#!/usr/bin/perl

...
    my $var = $Placemark->{name} . "\n";
    print "$var";
    }