$xslt is an object - you don't want to print that :) Instead try the below:

$xslt->transform ($xmlfile);

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

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