if ($FORM{username} =~ /^\w+$/) {
  &proceed;
} else {
  &error;
}