When used from the command line, ImageMagick preserves the aspect ratio, so a resize to 100x100 reduces the larger dimension to 100 pixels and reduces the smaller dimension in proportion.

It should probably do the same through perl.