Select Code to Download

$ perl -le'$x="green"; for our $x ("red", "blue") { push @a, sub { $x 
+} } print $_->() for @a'
green
...
$ perl -le'for my $x ("red", "blue") { push @a, sub { $x } } print $_-
+>() for @a'
red
blue

package Module;
my $x;
sub set { $x = shift }
sub get { $x }
1;

use Module;
Module::set(123);
print Module::get();  # 123