use strict;
use XML::Twig;

my $t= new XML::Twig();
my $root = $t->root;
$t->parsefile( 'T:\\BI\\Jerome\\xml\\tree.xml');
exit;

sub job
  { my ($t, $root)= @_;
    my %job;
    $job{Attr_name}= $root->{'att'}->{'Name'};
    $job{Attr_value}= $root->{'att'}->{'Value'};
    print "$job{Attr_name}: $job{Attr_value}\n";
    $root->delete;
  }