if ($something) {
    # do some stuff
}
else {
    # there was an error, set it
    $error = "informative error message";
    $error_num = 45;
}

print STDERR "Error $error_num    $error";