Select Code to Download

use strict;
use warnings;
...
      my $x = 2;
      sub { eval '$x' }
   }->() // 'undef';

x=2
Variable "$x" is not available at (eval 1) line 2.
x=undef