leak.pl

use 5.14.0;

# Very common leak
my $foo;
$foo = sub {
  my ($i, $j) = @_;
  return if $i >= $j;
  say $i++;
  $foo->($i, $j);
};
$foo->(1, 10);