##

#!/usr/bin/perl -w

use strict;
use CGI;
use GD;

my $cgi=new CGI;
my $cgi_size=$cgi->param('size') || '50';

print "Content-type: image/gif\n\n";
my $gd=new GD::Image($cgi_size,$cgi_size);
my $blue=$gd->colorAllocate(0,0,255);
$gd->fill(0,0,$blue);
binmode STDOUT; #just in case we're on NT
print $gd->gif;