use strict; use XML::XSLT; print "Content-type: text/html\n\n"; open (XSL, "blog.xsl"); my $xslFile = ""; while() { $xslFile .= $_; } close(XSL); #my $xslFile = get("blog.xsl") || die qq(No feed "blog.xsl": $!); my $xslt = XML::XSLT->new ($xslFile); #, warnings => 1, debug => 1) or die qq(Something Happened); my $xmlFile = ""; open (XML, "posts.xml"); while() { $xmlFile .= $_; } close(XML); #print $xslt->serve $xmlFile; $xslt->transform ($xmlFile); print $xslt->toString; $xslt->dispose();