#!/usr/bin/perl

my $i;

top:

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

goto top;