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

my $twig= XML::Twig->new(
               twig_handlers => { 'Parameter' => sub { $, = ",";
                                                      print
                                                        $_->{'att'}->{'name'}. $,
                                                      }
                                }
               );

$twig->parsefile('test.xml');