my $twig1= XML::Twig->new(    
	twig_handlers => { 
		'Parameter' => sub { 
			# use 'fault' if name is not defined; Operator '//' is available since perl 5.10.1
			my $attr_name = $_->{'att'}->{'name'} // 'fault';
			print $FhResult $attr_name . ",";
		},
	},
);