Select Code to Download

use strict;
use warnings;
...
                    }]
            };
print XMLout($xml,RootName => "root");

use strict;
use warnings;
...
my $xml;
push @{$xml->{"source"}}, { abc => $abc };
print XMLout($xml,RootName => "root");