$err=$image->Crop(geometry => "100x100+0+$offset");
print $err if "$err";