##

use XML::XSLT;
                                                                                
my $xslt = XML::XSLT->new ('tr.xslt', warnings => 1);
                                                                                
$xslt->transform ('source.xml');
print $xslt->toString;
                                                                                
$xslt->dispose();

##

##

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