Shear

use Image::Magick;

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

$i2 = $i->Clone();
$i2->Shear('15x45');
$i2->Write('Shear.jpg');

$i2 = $i->Clone();
$i2->Shear(x=>30, crop=>True);
$i2->Write('Shear2.jpg');