#!/usr/bin/perl
use CGI;
use CGI::Session;
# print "Cache-Control: no-cache\n";
# Access Perl Session
use CGI::Session;
# Create a new CGI Object
$cgi = CGI->new;
# Get the Session ID from the Cookie
$sid = $cgi->cookie("CGISESSID") || undef;
$session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});
# Access Stored Data
$name = $session->param("username");
print "Content-Type: text/html\n\n";
print "";
print "";
print "Perl Sessions";
print "";
print "";
print "From John De Castro - Perl Sessions Page 2
";
if ($name){
print("Name: $name");
}else{
print "
Name: You do not have a name set
";
}
print "
";
print "Session Page 1
";
print "Perl CGI Form
";
print "";
print "";
print "";