Select Code to Download

use strict;
use warnings;
...
  $container->traverse(sub { print $_->{val},"\n" });
  print "Exiting scope.\n";
}

Created new MyBinTree=HASH(0x1acef24)
bar
...
Exiting scope.
Destroying new MyBinTree=HASH(0x1acef24)
Destroyed