Help for this page
if (%hash = sub(%temphash) != 0) { ... (nothing important here) return(1) if ($error != 0);