Swirl

use Image::Magick;

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

$i2 = $i->Clone();
$i2->Swirl(degrees=>30);
$i2->Write('Swirl030.jpg');

$i2 = $i->Clone();
$i2->Swirl(degrees=>60);
$i2->Write('Swirl060.jpg');

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

$i2 = $i->Clone();
$i2->Swirl(degrees=>120);
$i2->Write('Swirl120.jpg');

$i2 = $i->Clone();
$i2->Swirl(degrees=>150);
$i2->Write('Swirl150.jpg');