Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $xml = XML::LibXML->load_xml(location => '1.xml');
my $v   = $xml->findnodes('//Attribute[AttrName="ref_num"]/AttrValue')
+;
print "$v\n";