You can try something like this.

my $file = "newfoo.xml";

open CREATE, ">$file") or die "Cannot create XML File: $!";

my $xsimple = XML::Simple->new();

print CREATE $xsimple->XMLout($config,
                 noattr => 1,
                 xmldecl => '<?xml version="1.0"?>');

close(CREATE);
[download]