if (%hash = sub(%temphash) != 0)
{
 print "ERROR! - sumthin broke\n";
 $error = 1;
 exit;
}

(nothing important here)
return(1) if ($error != 0);