sub foo {
    my $bar = sub {
        print "In bar\n";
    };
    $bar->();
};

##</code><code>##

sub foo {
    local *bar = sub {
        print "In bar\n";
    };
    bar();
};