#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXSLT;
use XML::LibXML;
  
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
  
my $source = $parser->parse_file('1.xml');
my $style_doc = $parser->parse_file('1.xsl');
  
my $stylesheet = $xslt->parse_stylesheet($style_doc);
  
my $results = $stylesheet->transform($source);
  
print $stylesheet->output_string($results);