my $var = 'test';
	my $session = new CGI::Session("driver:File", undef, {Directory=>"/tmp"});
	$session->param("display_name", $display_name);
	$session->param("access_level", $access_level);
	$session->param("site_name", $site_name);
	$session->param("user_id", $user_id);
	$session->param("signature", $signature);
	$session->param('+18h');
	my $cookie = $foo->cookie($var => $session->id);
	print $foo->header( -cookie=>$cookie );