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