#!/usr/bin/perl

print "Content-type: text/html\n\n";
use Image::Magick;
srand();
$ext = ".gif";
$front = "FL";
$numb = (int (rand(6969) + 1));
$name = qq~$front$numb$ext~;

my $image = Image::Magick->new;

@files = ("12.png","06.png","06.png","03.png","07.png","07.png");
foreach $one (@files) {
$image->Read($one); }

$image->Set
(
    loop=>'0',
    delay=>'40',
    adjoin=>'True',
    dispose=>'2'
);
$image->Write( "$name" );

This produces an animated .gif, but with a stutter
in it after the first repeat of 06.png.

If I change the array to add a blank image (66.png) after
each image, this works fine:
@files = ("12.png","66.png","06.png","66.png","06.png","66.png",
"03.png","66.png","07.png","66.png","07.png");