Select Code to Download

use XML::LibXML;

my $parser = XML::LibXML->new();
...
        <pd_name>Not Visible</pd_name>
        <dev_name>0040</dev_name>
# ...

for my $node ( $root->findnodes("//Device/*") )
{
    print $node->nodeName, $/;
}