#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use Time::HiRes qw[ time ];
use XML::LibXML;

open XML, '<', $ARGV[0] or die $!;

my $start = time;
my $root = XML::LibXML->load_xml( IO => \*XML )->documentElement;

printf "Parsing took %.6f seconds\n", time - $start;
my $start2 = time;

for my $station ($root->findnodes('*')) {
    my $x = $station->nodeName;
    for my $ip ( $station->findnodes('ip') ) {
        $x = $ip->textContent;
    }
}

printf "Iteration took %.6f seconds\n", time - $start2;
printf "Total took %.6f seconds\n", time - $start;
printf 'Check mem:'; <STDIN>;