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

my @files = @ARGV or die 'No files';

my $FileResult = 'result.txt';

open( my $FhResult, '>', $FileResult )
  or die "Unable to open file $FileResult\n$!";

for my $file (@files) {
    my $twig1 = XML::Twig->new(
        twig_handlers => {
            'Parameter' => sub {
                my $attr_value = $_->{'att'}->{'value'} || 'fault';
                print $FhResult $attr_name . ",";
            },
        },
    );

    print $FhResult ( split( '_', $file, 2 ) )[0] . ',';

    $twig1->parsefile($file);
}

close $FhResult;