Select Code to Download

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