Размер холста Image::Magick (Perl use Image::Magick)

[ReSeR]

Сама идея заключается в том, чтобы преобразовать все картинки к квадратному виду соблюдая пропорции.

Код: Выделить всё

use Image::Magick;
my $im = Image::Magick->new();
my $file = $im->Read('1.png');
warn "$file" if "$file";

$file = $im->Resize(geometry=>'135');
$file = $im->Write('done.png');

Картинка становится нужной мне ширины, но высота меньше необходимой.
Каким методом можно изменить размер холста?
ЗЫ: или может какой другой модуль использовать для этих целей?

[ReSeR]

Что-то начинает получаться:

Код: Выделить всё

use Image::Magick;
#w.png - прозрачное изображение 135х135 для объединения
my ($im, $d);
$im = new Image::Magick;
$im->Read('file.jpg', 'w.png');
$im->Resize(geometry=>135);
$d = $im->Montage(background=>'rgba(255,255,255,0)',geometry=>135);
$d->Write('done.png');

Но при этом получается объединение картинок в длину, а как сделать чтобы они накладывались одна на другую?