use Image::Magick;
$i = Image::Magick->new;
$i->Read('original.jpg');
$i2 = $i->Clone();
$i2->Zoom(width=>100, height=>100);
$i2->Write('zoom.jpg');
$i2 = $i->Clone();
$i2->Zoom(width=>100, height=>100, blur=>0.8);
$i2->Write('zoom1.jpg');
$i2 = $i->Clone();
$i2->Zoom(width=>100, height=>100, blur=>1.1);
$i2->Write('zoom2.jpg');
$i2 = $i->Clone();
$i2->Zoom(width=>640, height=>480, filter=>Point);
$i2->Write('zoom_Point.jpg');
$i2 = $i->Clone();
$i2->Zoom(width=>640, height=>480, filter=>Lanczos);
$i2->Write('zoom_Lanczos.jpg');