use strict;
use XML::XSLT;

my $xmlFilename = '/home/joost/input.xml';
my $xslFilename = '/home/joost/input.xsl';
(my $outFilename = $xmlFilename) =~ s/\.xml$/\.csv/i;

my $xslt = XML::XSLT->new($xslFilename, warnings => 1);
$xslt->transform($xmlFilename);
print $xslt->toString;