use strict; use GD; print "Perl:$]; $GD::VERSION \n"; for (1..10) { print "Iteration $_\n"; my $cap = x_generator( 100, 100 )->(); } sub x_generator { my ($x, $y) = @_; return sub { GD::Image->trueColor( 1 ); my $gd = GD::Image->new( $x, $y ); my $raw = $gd->gd; my $img = GD::Image->newFromGdData( $raw ) or die "$!, $^E"; return $img->jpeg; }; } __END__ Perl:5.008007; 2.30 Iteration 1 Free to wrong pool 222888 not 15c1b142 at testbug.pl line 9.