print "\%$symname\n";
&tree( 2, "HASH", $symname );
}
foreach $symname ( sort keys %$package ) {
local *sym = $$package{$symname};
print "\%$symname\n";
&tree( 2, "HASH", $symname );
}
foreach $symname ( sort keys %$package ) {
local *sym = $$package{$symname};