use strict;
use warnings;
use XML::Twig;

      my $twig=XML::Twig->new(
	           twig_handlers   => { 'Hierarchy' => \&print_elt_text
	           }
	      );
		
	$twig->parsefile( "a.xml");

sub print_elt_text 
    { my( $t, $section)= @_;
    ?
    $t->purge;
    }

##</code><code>##

<Configuration>
 <Version>1.0</Version>
  <User>root</User>
 <Parameter ParameterName="Text">Enable</Parameter>
 <Parameter ParameterName="Text2">Disable</Parameter>
<Hierarchy>
<Application Name="App1">
<Properties>
 <Admin>root</Admin>
 <User>root</User>
 <Timeout>900</Timeout>
 </Properties>
 </Application>
<Application Name="App2">
<Properties>
 <User>root</User>
 </Properties>
 </Application>
 </Hierarchy>
 </Configuration>