$ perl junk
Global symbol "$source_file" requires explicit package name at junk line 35.
Execution of junk aborted due to compilation errors.

##</code><code>##

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