sub setCookie
{
	my $cookiename = shift;
	my $value = shift;
	my $expires = shift;
	my $domain = shift;
	my $path = shift;
	
	my $cookie = cookie(-name => $cookiename,
			-value => $value,
			-expires => $expires,
			-domain => $domain,
			-path => $path);

	print header(-cookie => $cookie);
	
}