画像縮小・拡大・サイズ変更（Image::Magick, Resize）
#! /usr/local/bin/perl
use Image::Magick;
# 元画像ファイル
$in = '../../sample/img/img.jpg';
# 画像保存先
$out = './imgs.jpg';
# オブジェクト作成
$image = Image::Magick->new;
# 元画像読み込み
$image->Read($in);
# 元画像縦横サイズ取得
($w, $h) = $image->Get('width', 'height');
# サイズ変更
$image->Resize(
width => int($w * 0.5), # 0.5倍（1倍未満で縮小、1倍以上で拡大）
height => int($h * 0.5), # 0.5倍
blur => 0.8
);
# 画像保存
$image->Write($out);
print qq(Content-type: text/html\n\n);
print <<"END";
<html>
<head>
<title>画像サイズ変更</title>
</head>
<body>
画像サイズ変更・保存しました。<br>
<br>
↓保存した画像<br>
<img src="$out"><br>
<br>
↓元の画像<br>
<img src="$in"><br>
</body>
</html>
END
exit;
〔 実行する 〕