So there's a difference between named subs and anonymous subs (closures)?

A named sub declared at any point in a package (even inside an eval()) gets installed into the symbol table.

I guess this test shows the difference, not that I'd do this in practice:

sub do_this {
    my $arg = shift;
    my $foo = "bar";

    sub do_that {
        print "Arg is: $arg!\n";
        print "Foo is: $foo!\n";
    }
}

do_this(1);
do_that();
[download]

We get the ever-popular "variable will not stay shared" message familiar to mod_perl hackers.

Thanks for the clarification.