Rotate

use Image::Magick;

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

$i2 = $i->Clone();
$i2->Rotate(degrees=>90);
$i2->Write('Rotate90.jpg');

$i2 = $i->Clone();
$i2->Rotate(degrees=>-90);
$i2->Write('Rotate90m.jpg');

$i2 = $i->Clone();
$i2->Rotate(degrees=>45);
$i2->Write('Rotate45.jpg');

$i2 = $i->Clone();
$i2->Rotate(degrees=>45,crop=>True);
$i2->Write('Rotate45crop.jpg');

$i2 = $i->Clone();
$i2->Rotate(degrees=>45,crop=>True,sharpen=>True);
$i2->Write('Rotate45cropsharpen.jpg');