... main code ...
$size = "${size}x$size" unless $size =~ /%$/;
...
sub shrink {
  my $name = shift;
  my $img = Image::Magick->new;
  $img->Read($name);
  $img->Mogrify('geometry' => $size);
  $img->Write($name);
}