use Data::Dumper;

        use CGI::Session;
        use CGI;

        my $cgi = new CGI;  
        my $session = new CGI::Session(undef, $cgi, {Directory=>"\tmp"});    
		$cookie = $cgi->cookie(CGISESSID => $session->id );
		print $cgi->header(-cookie=>$cookie);

##</code><code>##

        (in cleanup) could not flush: Couldn't store 4206b0c8bba60b5246ced512c58
f5481 into      mp\cgisess_4206b0c8bba60b5246ced512c58f5481: Invalid argument at
 login.cgi line 0