#!/usr/bin/env perl
#
# That's right.  It doesn't even have a proper garbage collector.
# What a joke.

while (1) {
	my $a = [];
	push @$a, $a;
}