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.
-e had compilation errors.
BEGIN { $^W = 1; }
use strict;
my $file = 'x';
die "Can't open ${'fh'}" unless open my $fh, '<', $file;

22:56 >