{
    my $foo = 1;
    sub get_and_inc_foo { $foo++ }
}