Select Code to Download

sub Tie::STORE {
   ${$_[0]} = $_[1] unless defined ${$_[0]}
}

tie my $x, 'Tie';
my $f = sub { $x };
...
}
$x = 1;
print $f->(), "\n"; # => 2 is still tied