PerlMagick例外

Question

我是perlmagick的新手，我在MAC上尝试这个简单的代码：

#!/usr/local/bin/perl
use Image::Magick;

my($image, $x);

$image = Image::Magick->new;
$x = $image->Read('cv.png');
warn "$x" if "$x";

$x = $image->Crop(geometry=>'100x100+10+10');
warn "$x" if "$x";

$x = $image->Write('x.png');
warn "$x" if "$x";

但我收到了这个错误：

  

异常400：内存分配失败`cv.png'   @ error / png.c / ReadOnePNGImage / 2109 at image.pl第8行。

这里有什么问题？