perl -MTk -e " tkinit->DirSelect->Show "

perl -MTk -e " $ds = tkinit->DirSelect; $ds->parent->WidgetDump; $ds->Show "