#!/usr/bin/perl -W
#
#
use XML::DOM;

my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("test.xml");


 my $nodes = $doc->getElementsByTagName ("H1");
        my $n = $nodes->getLength;

        for (my $i = 0; $i < $n; $i++)
        {
            my $node = $nodes->item ($i);
            my $href = $node->getAttributeNode ("myattr");
            print $href->getValue . "\n";
        }












$doc->dispose; # Avoid memory leaks - cleanup circular references