Select Code to Download

  my ($height, $width) = $image->Get ('height', 'width');
  my $portrait = $height > $width;
...
  my $scale = $scaleX < $scaleY ? $scaleX : $scaleY;

  $thumb->Resize (width=>$width * $scale+0.5, height=>$height * $scale
++0.5);