my $c = new CGI::Cookie(
			    -name       => 'USER',
			    -path       => '/',
			    -value      => $userid,
			    -domain     => getdomain(),
			   );

    print "Set-Cookie: $c\n";

##</code><code>##

%cookies = fetch CGI::Cookie;
$user = $cookies{'USER'};
print "$user";