open(IMPORTDFSFILE,"import.xml");
my @lines = <IMPORTDFSFILE>;

open(EXPORTDFSFILE,">exporttest.xml");
select (EXPORTDFSFILE);
print @lines;
close(EXPORTDFSFILE);


close(IMPORTDFSFILE);
exit(0);