or download this
$ perl -wMstrict -le 'open local *HMD, ">", \(my $x) or die $!;
print HND "Foo"; close HND; print "Done"'; echo $?
...
Global symbol "$hnd" requires explicit package name (did you forget to
+ declare "my $hnd"?) at -e line 2.
Execution of -e aborted due to compilation errors.
255