##

 #!/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 $lon = $kid1->getAttribute('Longitude');
    print $lon,"\n";
}