#!/usr/bin/perl

use CGI::Session;
use CGI;


my $cgi = new CGI;
#$cookie = $cgi->cookie("CGISESSID") || undef;
my $session = new CGI::Session(undef,$cgi, {Directory=>'/tmp'});

print "status:  200 OK\n";
print "content-type:    text/html\n\n";
print "Your name is: ";
print $session->param('fname');