#!/usr/bin/perl -wT

use strict;
use CGI qw(:standard);
use Image::Magick;

my $image = new Image::Magick;
my $i = 10;

for (1..20) {
	$image->Read("kyla_smile.jpg");
	$image->Swirl(degrees => $i);
	$i += 10;
}

$image->Set(loop=>0);
$image->Write("kyla_ani.gif");

print redirect("kyla_ani.gif");