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);