Select Code to Download

require Image::Magick;
my $img = new Image::Magick;
$img->Read($filepath);
$img->Scale("640>");
$j->Write($filepath2);