# -----8<-----
	my $cgi = new CGI();
	my $cookieval = $cgi->cookie("CGISESSID");
	my $paramval = $cgi->param("CGISESSID");
	my $sid = $cgi->cookie("CGISESSID") || $cgi->param("CGISESSID");

	my $session = new CGI::Session(undef, $sid, {Directory=>File::Spec->tmpdir()});
	my $sid2 = $session->id();
	# -----8<-----