my $session = new CGI::Session(undef, $empty, {Directory=>"c:/apache/sessions"});
	$session->expire('+18h');
	$session->param("userID", $userID);
	my $cookie = $foo->cookie(-name => 'main', 
				-value => $session->id, 
				-expires => '+30d', 
				-path => '/');
	print $foo->header(-cookie => $cookie);