#!/usr/bin/env perl -w

use strict;
use Image::Magick;

my($image, $status, $cube,
   $original, $data, $data_suf,
   $times, $roll_x, $roll_y);

$original="kuzu00.gif";
$data="kuzu";
$data_suf=".gif";
$roll_x=3;
$roll_y=0;

$image = Image::Magick->new;

$status = $image->Read($original);
warn "$status" if "$status";

$image->Transparent('#FFFFFF');
#$image->Zoom('200%');

$cube = Image::Magick->new;
$status = $cube->Read('NETSCAPE:');
warn "$status" if "$status";
$image->Map($cube);

for($times=1; $times < 52; $times++) {
  $image->Roll(x=>$roll_x, y=>$roll_y);
  if ($times <  10) {
  $status = $image->Write("gif:${data}0$times$data_suf");
  } else {
  $status = $image->Write("gif:$data$times$data_suf");
  }
}
warn "$status" if "$status";

undef $image;