#!/usr/bin/perl

my $i;

top:

while (1) {
  again:
    my $x;
    $i = 0;
    goto again if $i++ < 100_000;
}

goto top;

##</code><code>##


sub closure {
        my $s;
        return sub { $s=5; my $i; }
    }

    my $f = closure();

while (1) {
    $f->();
}