perl -MTk -e "MainWindow->new->getOpenFile( -initialdir => qq(c:\\program files) )"