perl -MTk -e " print tkinit->DirSelect(-width,5000 )->Show( shift ) " D:\