use Image::Magick; $i = Image::Magick->new; $i->Read('original.jpg'); $i2 = $i->Clone(); $i->Scale(width=>100, height=>100); $i->Write('Scale.jpg'); $i2->Scale(width=>400, height=>400); $i2->Write('Scale_L.jpg');