sub SetCookie {
	use CGI qw/:standard/;
	use CGI::Cookie;
	
	$cookie1 = new CGI::Cookie(-name=>'DB',
		-value=>{ username => $DBuser,
			  password => $DBpasswd,
		},
		-expires =>  '+1H');

	print "Set-Cookie: $cookie1\n";
	print "Content-Type: text/html\n\n";
}

sub ReadCookie {
	%cookies = fetch CGI::Cookie;
	@id = $cookies{'DB'}->value;
	$exp = $cgi->header( -cookie => DB);
	print "$id[0] = $id[1]; $id[2] = $id[3]; Expiration = $exp";
}