#!/usr/bin/perl --
use strict;
use warnings;
use XML::Twig;
my $source = '/sand/devel/sthapa/tmp/as.xcf-dist';
my $Tag_Resource ='/CONFIGURATION/APPLICATION_SERVER/RESOURCE_LIST/';
my $Tag_Resource_PI = $Tag_Resource.'PLATFORM_INDEPENDENT/RESOURCE';
my $Tag_wnt = $Tag_Resource.'WNT/RESOURCE';

my $t = XML::Twig->new(
    twig_roots => {
# /CONFIGURATION/APPLICATION_SERVER/RESOURCE_LIST/WNT/RESOURCE
        $Tag_wnt => sub {
            my ( $t, $price ) = @_;
            {
                my $id = $price->att('Id');
                if (exists $$HRR_resource{$id}){
                    print "Attribute exists: $id";
                }
            }
            $price->print(\*STDOUT);
        },
    },
    twig_print_outside_roots => \*STDOUT,
);
$t->parsefile($source);
$t->flush;    #don't forget
undef $t;