if (@errors) {
    print $w->header.
          join '', map { $q->p($_) } @errors;
    exit(0);
}

# you only need one cgi object
$w->redirect();