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');