#!/usr/bin/perl -w

use strict;
use XML::LibXML;

my $parser = XML::LibXML->new;
my $xmlfile = "20060402-201025.xml";
my $doc = $parser->parse_file($xmlfile);
my $element = $doc->getDocumentElement;

my @nodes = $element->getElementsByTagName('data');

foreach my $kid1(@nodes) {
    my $elname2 = $kid1 -> getName();
    print $elname2,"\n";
    my @lats = map $_->getValue(),$kid1->findnodes('//datacolumn[name="Latitude"]/item/@value');
    print @lats,"\n";
}