Mit perlmagic habe ich noch nicht gearbeitet, aber dafür mit imagemagic...

Mein Vorgehen währe:
1. Bilddetails holen - hier ist Höhe und Breite ja ausreichend.
2. Bildgröße reduzieren auf die gewünschte Größe.
3. Den Crop Ausschnitt "selbst" berechnen. (in Perl)
4. Crop Befhel ausführen

Vielleicht sollte man 1 und 2 tauschen, oder 1 nach 2 nochmal ausführen.

Allerdings sollte man bessere Ergebnisse erhalten wenn man zuerst Crop ausführt und dann Skaliert. Dies sollte auch schneller sein - sagt mir zumindest mein Gefühl.