-------------------------------------------------------------------------------
This perl code will take all the *gif files in the current directly and create
an animated gif called loop.gif.

#!/usr/bin/perl

use Image::Magick;

$image = new Image::Magick;
$image->Read('*.gif');

$image->Set
(
    loop=>'0',
    delay=>'25',
    adjoin=>'True',
    dispose=>'2'
);

$image->Write( "loop.gif" );

-------------------------------------------------------------------------------