Select Code to Download

$sb->setAttribute(SourceDBType => 'XML') if !$sb->setAttribute('XML');

use strict;
use warnings;
...

my @children = $doc->{root}{node}[0]('@');
say @children == 5 ? "ok" : "XXX";

1
XXX