Help for this page

Select Code to Download

Select or download this
```
$gold if 0;
```

Select or download this

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