my $error = $q->cgi_error;
if ($error) {
    # return an error message
}