#!/usr/bin/perl
use strict;
use warnings;

sub bar {
    if ( foo() ) {
        goto &bar;
    }
    return;
}

my $i;
sub foo {
    return $i++ < 500_000;
}

$i=0; bar(); print("Press Enter to continue"); <STDIN>;  # 32,824K
$i=0; bar(); print("Press Enter to continue"); <STDIN>;  # 32,872K
$i=0; bar(); print("Press Enter to continue"); <STDIN>;  # 32,860K
$i=0; bar(); print("Press Enter to continue"); <STDIN>;  # 32,856K