#!/usr/bin/env perl -w

use  Image::Magick;

my ($image,$status,$i,$newfile,$geometry,$num);
$image = Image::Magick->new;
$status = $image->Read("foo.png");
warn "$status" if $status;

$num=5;
for($i=$num;$i<=77;$i+=$num)
{
$status = $image->Roll(x=>0,y=>-$num);
warn "$status" if $status;

  if ($i < 10) {
    $newfile="0$i"."roll.png";
    }else { 
    $newfile=$i."roll.png";
  }

$status = $image->Write("$newfile");
}

warn "$status" if $status;