Select Code to Download

my %t_type = (
...
...
...
);

print L $xsimple->XMLout(
            \%t_type,
            noattr => 1,
            xmldecl => '<?xml version="1.0"?>',
        );