GD::Image::AnimatedGif 0.05

GD::Image::AnimatedGif is a Perl extension for creating animated gifs with GD.

SYNOPSIS

use GD::Image::AnimatedGif;

# setup the image
my $image = GD::Image->new(42,21);
my $white = $image->colorAllocate(255,255,255);
$image->transparent($white);

# setup some font goodies
my $fontcolor = $image->colorAllocate(0,0,0);
my $font = GD::Font->Small();

# setup some settings into variables
my $loop = 0;
my $speed = 42; # 1/100 of a sec
my $x_font = 10; # from right (x or y ??)
my $y_font = 2; # from top (x or $y ??)

print "Content-type: image/gifnn";
print $image->animated_gif($loop,$font,$fontcolor,$speed,$x_font,$y_font,[qw(text per frame)],&optional_frame_handler);
or
print $image->animated_gif_easy(0,0,@array,&optional_frame_handler);
So you can have this be your entire script, actual animation creation is on one line:
#!/usr/bin/perl

use strict;
use warnings;
use GD::Image::AnimatedGif;

print "Content-type: image/gifnn";
print GD::Image->new(50,20)->animated_gif_easy(0,[qw(10 9 8 7 6 5 4 3 2 1 0 Liftoff!)]);