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