perl -MTk -e 'warn tkinit->getOpenFile'