my $ret = $image->Resize( geometry => "100x100" );
die "... $ret" if $ret;