use GD::Image::AnimatedGif;
use strict;
use warnings;
    # setup the image
    my $image = GD::Image->new(400,400);
    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 = 30; # from right (x or y ??)
    my $y_font = 32; # from top (x or $y ??)
    my @arr = qw/foo bar a b c d/;
	binmode STDOUT;
    print "Content-type: image/gif\n\n";
	print $image->animated_gif($loop,$font,$fontcolor,$speed,$x_font,$y_font,\@arr);