#! perl -slw use strict; use GD; sub x{ my( $x, $y ) = @_; 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; } print "Perl:$]; $GD::VERSION"; my $cap = x( 100, 100 ); printf 'Waiting'; ; $cap = x( 100, 100 ); __END__ C:\Perl\test>junk3 Perl:5.008007; 2.28 Waiting Free to wrong pool 2227b0 not a797469 at C:\Perl\test\junk3.pl line 9, line 1.