Help for this page
$ perl junk Global symbol "$source_file" requires explicit package name at junk li +ne 35. Execution of junk aborted due to compilation errors.
$ perl -MTkx -e " print Tkx::tk___getOpenFile() " C:/dev/temp/junk