sub foo {
    my $bar = 0;
    sub baz {
        print $bar++;
    }
}