use warnings;
use strict;
use GD;
my $x = 36; my $y = 21;
my @arr=("2","3","4","5","6","7","8","9");
for(my $i = 0; $i <= $#arr; $i++) {
        my $image = new GD::Image($x,$y);
        my $white = $image->colorAllocate(255,255,255);
        my $red = $image->colorAllocate(255,0,0);
        my $black = $image->colorAllocate(0,0,0);
        $image->filledRectangle(0,0,35,20,$white);
        $image->string(gdGiantFont,2,1,$arr[$i],$red);
        $image->string(gdGiantFont,17,1,$arr[$i],$black);
        my $outimage = $image->gif();
        open FILE,"> $arr[$i]h.gif";
        print FILE $outimage;
        close FILE;
}