potresti fare cosi:
1- cerchi di capire qualè il lato piu corto e lo salvi in $lato
2- "tagli" un pezzo di immagine quadrata con lato = $lato dal punto 0,0 dell'immagine