https://www.fincher.org/Blogger/Blogger02004a.shtml Mitch Fincher's random bits on alternate energy, software development, Greek philosophy and history, and the state of the world. #!/usr/bin/perl use XML::XSLT; MAIN: { require "XSLT.pm" || die "Cannot find XSLT.pm: $!"; require "./cgi-lib.pl" || die "Cannot find cgi-lib.pl: $!"; local(*in,$message,$command); &ReadParse(*in); print &PrintHeader; $xmlfile = $in{xmlfile}; $xsltfile = $in{xsltfile}; if($xmlfile eq "") { $xmlfile = $ARGV[0]; } if($xsltfile eq "") { $xsltfile = $ARGV[1]; } my $xslt = XML::XSLT->new ($xsltfile, warnings => 1); $xslt->transform ($xmlfile); print $xslt->toString; $xslt->dispose(); }