$r = $im->Resize(geometry => "${w}x${h}");
error sprintf(gettext("failed to resize: %s"), $r) if $r;
# don't actually write resized file in preview mode;
# rely on width and height settings
if (! $params{preview}) {
$r = $im->Resize(geometry => "${w}x${h}");
error sprintf(gettext("failed to resize: %s"), $r) if $r;
# don't actually write resized file in preview mode;
# rely on width and height settings
if (! $params{preview}) {