my $sid = $foo->param('test');
my $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
my $access_level = $session->param("access_level") || 0;
my $display_name = $session->param("display_name") || "";
my $user_id = $session->param("user_id") || 0;

print "Sid: $sid<BR>
Session: $session<BR>
Access: $access_level<BR>
Name: $display_name<BR>
User ID: $user_id<BR>\n";