use XML::Twig;

my $twig = new XML::Twig( TwigRoots => { 'xsl:param[@name=\'test\']' => \&output });
$twig->parsefile( shift @ARGV );

sub output {
  my( $tree, $elem ) = @_;
  print $elem->text, "\n";
}

OUTPUT:
testdata