Select Code to Download

#!/usr/bin/perl -w
my $foo = { c => {} };
my $records = [ $foo ];
$records->{c} = 1;

[jon@opiate jon]$ ./foo.pl 
Out of memory!
[jon@opiate jon]$ perl --version

This is perl, v5.6.0 built for i386-linux