Select Code to Download

$sb->append(new_data_ele(SourceDBType => 'XML'))
   if !$sb->findnodes('XML')->size;

sub child_nodes {
   my %c = $_[0]('%');
...
         grep $_ ne 'CONTENT',
            keys %c;
}