#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xml = XML::LibXML->load_xml(location => '1.xml');
my $v   = $xml->findnodes('//Attribute[AttrName="ref_num"]/AttrValue');
print "$v\n";