#perl;
# INIT ----
use warnings;
use strict;
use Win32::OLE qw(in with);

my $obj_xslt = Win32::OLE->new('MSXML2.DOMDocument.4.0') or die "new() failed creating DOM";
$obj_xslt->{async} = "False";
$obj_xslt->load('<the_xslt_as_mentioned_above>');

# Get parameters from xslt
my $xpath = "//xsl:param[\@name='test']";
my $q = $obj_xslt->selectSingleNode($xpath);
print $q->item(0)->nodeValue, "\n";