Select Code to Download

my $num_children = @{ $barry{children} };

print( scalar( @{ $barry{children} } ), "\n" );