or download this
Scalar found where operator expected at F:\_Perl_\pl_test\junk3.pl lin
+e 11, near "$query"
(Missing semicolon on previous line?)
syntax error at F:\_Perl_\pl_test\junk3.pl line 11, near "$query "
F:\_Perl_\pl_test\junk3.pl had compilation errors.