#!/usr/bin/env perl -w

use strict;
use Image::Magick;

my($image, $status, $cube);

$image = Image::Magick->new;

$status = $image->Read('kuzu*.gif');
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);

$status = $image->Set(loop=>0,
			dispose=>2);
$status = $image->Write("gif:allkuzu.gif");
warn "$status" if "$status";

undef $image;