$ret = $image->Write; if ("$ret") { error("$ret") } print $ret . " images written";