Imagerの画像変換イヤンヌ

Perl

png画像をjpegに変換して、サイズを６０＊６０にしようとして、
下みたいにしてると、生成される画像サイズが、６０＊８０になる罠



use Imager;

my $jpeg = Imager->new;

$jpeg->read( data => $image->get('png150') ) or die $jpeg->errstr;

my $scaled = $jpeg->scale( xpixels=>'60', ypixels=>'60' ) or die $jpeg->errstr;

$scaled->write(data => \my $data , type => 'jpeg');

うぜ！！
こうしたら直った



my $scaled = $jpeg->scaleX(pixels=>'60')->scaleY(pixels=>'60') or die $jpeg->errstr;

なんとまぁ。
どうなのこれ。