>>654

my $ani = Image::Magick->new;
$ani->Read("ani.gif");
$ani->Resize(width=>200, height=>200, blur=>0.7);
print "Content-type: image/gif\n\n";
binmode STDOUT;
$ani->Write('gif:-');

とりあえずこれでできたが（アニメしたまま縮小）、
もしかしたら元のアニメＧＩＦに左右されるのかも。