##

#!/usr/bin/perl
use XML::DOM::XPath;
use strict;
use warnings;

my $parser= XML::DOM::Parser->new();
my $srcdir=shift;
my $dstdir=shift;
opendir(SRC,$srcdir);
foreach(grep (/\.xml$/,readdir(SRC)))
{
    my $doc = $parser->parsefile("$srcdir/$_");
    $doc->printToFile("$dstdir/$_");
    $doc->dispose;
}
close(SRC);