use strict;
use XML::XSLT;

my $xmlFilename = 'C:/Perldev/xslt/WEATHER_ACTUAL_20070820144516.XML';
my $xslFilename = 'C:/Perldev/xslt/StyleSheet2.xsl';
(my $outFilename = $xmlFilename) =~ s/\.xml$/\.csv/i;

my $xslt = XML::XSLT->new($xslFilename, warnings => 1);
my $result = $xslt->transform(XMLFile => $xmlFilename,
                              XSLFile => $xslFilename,
                              OutFile => $outFilename
                             );