use XML::XSLT;
use LWP::Simple;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";

my $xsl = get("blog2.xsl")
my $xslt = XML::XSLT->new ($xsl, warnings => 1, base => "/home/bosshoff/www/blog/");

my $xml = get("posts.xml")
$xslt->transform ($xml);
print $xslt->toString;

$xslt->dispose();