or download this
22:56 >perl -MO=Deparse -Mstrict -we "my $file = 'x'; open (my $fh, '<
+', $file) or die qq[Can't open $fh];"
Global symbol "$fh" requires explicit package name (did you forget to
+declare "my $fh"?) at -e line 1.
...
die "Can't open ${'fh'}" unless open my $fh, '<', $file;
22:56 >