Without knowing too much about the module, I would say that it is cropping because you are calling Crop(). Take a look at http://flex.ee.uec.ac.jp/texi/ImageMagick/www/perl.html. I think Scale() is what you want.