#!/usr/bin/perl    

# takes series of jpegs and stacks them as an animated gif
# with an interframe delay of about a second.
# Henrik Kibak Feb 2004

use Image::Magick;    

my($image, $x);    
$image = Image::Magick->new;    
$x = $image->Read('*.jpg');
$x = $image->Write(filename=>'aStackOjpegs.gif', delay=>'100', loop=>'1');    
warn "$x" if "$x";
undef $image;