sub foo {
    baz();
    my $foo = "bar";
    sub baz {
        print $foo;
    }
}