use strict;
use warnings;
use Image::Magick;

my $image = Image::Magick->new();
my $x = $image->Read('tail0.jpg', 'tail1.jpg', 'tail2.jpg', 'tail3.jpg');

$image->Scale(geometry => '200x200');

$image->Set(delay => 100);
$image->Write('tailx.gif');