my $foo;

sub leaky {
    my $closure = sub { $foo++ };
}
for (;;) {leaky}