Help for this page
sub topdir { my($nd,$parent)=@_; ... return $d; }
#!/usr/bin/perl -w ... foreach (keys %hash) { print "DIR $_ = $hash{$_}\n"; }