Select Code to Download

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

my $sid = $foo->param('test');
my $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
...
Access: $access_level<BR>
Name: $display_name<BR>
User ID: $user_id<BR>\n";

Sid: bab864bfd5e46898b2252e19cffdf038
Session: CGI::Session::File=HASH(0x1bc0680)
Access: 0
Name:
User ID: 0