Select Code to Download

my ($width,        $height       ) = ...;
my ($max_width,    $max_height   ) = (800, 600);
...
   $width  = int($width  * $factor + 0.5);
   $height = int($height * $factor + 0.5);
}

use Image::Magick qw();

...
   $img->Resize(width => $new_width, height => $new_height);
   $img->Write($file_name);
}