my $outer = eval "sub {1;}";   # Different address each time.