$gold if 0;

##</code><code>##

$ perl -Mv5.10 -we \
'do { my $x = 42; sub {          say eval q{$x} } }->()'
Variable "$x" is not available at (eval 1) line 1.
Use of uninitialized value in say at -e line 1.


$ perl -Mv5.10 -we \
'do { my $x = 42; sub { $x if 0; say eval q{$x} } }->()'
42