use XML::LibXML;
use XML::LibXSLT;

   my $xmlIn   = shift;#scalar
   my $xslIn   = shift;#scalar


     my $parser  = XML::LibXML->new();
     my $xslt    = XML::LibXSLT->new();
     my $source  = $parser->parse_string($xmlIn);
     my $style_doc = $parser->parse_string($xslIn) ;
     my $stylesheet = $xslt->parse_stylesheet($style_doc);
     my $results = $stylesheet->transform($source);
     my $outputStr = $stylesheet->output_string($results);

return $outputStr;