15.19 イメージの縮小版を作る

• CPANのImage::Magickモジュールを使用する

use Image::Matick;

$image = Image::Magick->new();
$image->Read($ORIGINAL_FILENAME);
$image->Resize(geometry => '120x90');
$image->Write($THUNBNAIL_FILENAME);