Sample

use Image::Magick;

$i = Image::Magick->new;
$i->Read('original.jpg');
$i2 = $i->Clone();

$i->Sample(width=>100, height=>100);
$i->Write('Sample.jpg');

$i2->Sample(width=>400, height=>400);
$i2->Write('Sample_L.jpg');