use XML::XSLT;

my $xsl="main.xsl";
my $xmlfile="main.xml";



 my $xslt = XML::XSLT->new ($xsl, warnings => 1);

 $xslt->transform ($xmlfile);
 print $xslt->toString;

###########
$main="main";
open (INF, ">$main.html")||warn ("Can not create file");    
print INF $xslt;
close INF;
############
$xslt->dispose();