Roll

use Image::Magick;

$i = Image::Magick->new;
$i->Read('original.jpg');

$i2 = $i->Clone();
$i2->Roll(geometry=>'+20+10');
$i2->Write('Roll.jpg');

$i2 = $i->Clone();
$i2->Roll(x=>25, y=>15);
$i2->Write('Roll2.jpg');

$i2 = $i->Clone();
$i2->Roll(y=>50);
$i2->Write('Roll3.jpg');