perl this_pg.pl target.xml SOMETHING 1

##</code><code>##

use strict;use warnings;
use XML::Twig;
my $xmlfile=$ARGV[0];
my $values_flag=$ARGV[0] || 0;

my $twig =XML::Twig->new( 
	twig_handlers => {'//*' => sub {
			my($twig,$elt)=@_;
			if ( $elt->descendants == 1 ){
				print $elt->path;
				print " := " . $elt->first_child_text if ( $values_flag );	
				print "\n";
			}
		}
	}, 
)->parsefile($xmlfile);