$ perl -MTkx -e " print Tkx::tk___getOpenFile() "
C:/dev/temp/junk