open (XMLFILE,">c:/Perl_Tests/".$filename.".xml");

##</code><code>##

my $path = ">c:/Perl_Tests/".$filename.".xml";
open (XMLFILE, $path) or die "Opening $path : $!";