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