print Dumper($menu->entrycget(0, '-menu'));
print Dumper($menu->entrycget(0, '-menu')->entrycget(0, '-label'));