$xslt->transform ($xmlfile);

###########
$main="main.thml";

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