画像を希望の大きさにリサイズする Resize()を使えば画像を希望の大きさに変更できます。 #!/usr/local/bin/perl -w use strict; use Image::Magick; my $file = "sample.jpg"; # 倍率 my $scale = 0.7; my $image = Image::Magick->new; $image->Read($file); # 画像の情報を得る(幅、高さ) my ($width, $height) = $image->Get('width', 'height'); $width = $scale * $width; $height = $scale * $height; # 画像をリサイズする $image->Resize(width=>$width, height=>$height, blur=>0.7);