or download this
>perl -we"${foo::bar}::baz = 1;"
Bareword found where operator expected at -e line 1, near "${foo::bar}
+::baz"
(Missing operator before ::baz?)
syntax error at -e line 1, near "${foo::bar}::baz "
Execution of -e aborted due to compilation errors.