/usr/perl5.8.4d/bin/perl -MTk -e 'warn tkinit->chooseDirectory'