$clone = $image->Clone; if (!ref $clone) { error($clone) }