$Data = {'HTTP_COOKIE'};
  ($Name,$info) = split(/=/,$Data);

 if($Name eq $FORM{'username'}){
 &WelcomeUser;
}else{


$CookieName=$FORM{'username'};
print "Set-Cookie: Name=$CookieName;\n";

&WelcomeAndRedirect;

}