or download this
$ perl -wMstrict -le 'eval "%hash1=(); 1" or warn "<<$@>>"'
<<Global symbol "%hash1" requires explicit package name (did you forge
+t to declare "my %hash1"?) at (eval 1) line 1.
...
Foo
$ perl -wMstrict -le 'my %hash1; eval "my %hash1;"; print "Foo";'
Foo