foreach my $dc ( %{ $re->directoryCategory() } ) {
             print $dc->fullViewableName()."\n" ;

        }