if($FORM{'username'} =~ /\W/))
{ 
  print  "Content-type: text/html\n\n"; 
  print " Error: spaces not allowed\n"; 
  exit;
} 
else { &proceed; }