#!/usr/bin/perl

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 "Set-Cookie: $cookie\n";
print "status:  200 OK\n";
print "content-type:    text/html\n\n";

$session->param('fname','chet');
my $fname = $session->param('fname');
print "$fname";
print $cgi->cookie("CGISESSID");

print "<br><a href=file2.cgi>next page</a>";