use XML::DOM;
my $file = @ARGV[0];

my $parser = new XML::DOM::Parser();

my $doc;
eval {
        $doc = $parser->parsefile( $file );
};
if ($@) {
        die "parsefile() failed: $@\n";
}
$doc->printToFile($file."_out");
exit;