my $xmlfile = "1.xml";
my $xslfile = "1.xsl";

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

print "start\n";
  my $parser = XML::LibXML->new();
  my $xslt = XML::LibXSLT->new();

  my $source = $parser->parse_file($xmlfile);
  my $style_doc = $parser->parse_file($xslfile);

  my $stylesheet = $xslt->parse_stylesheet($style_doc);

  my $results = $stylesheet->transform($source);

  print $stylesheet->output_string($results);
print "\nstop\n";