#!/usr/bin/perl
use CGI;
# Create a new Perl Session
use CGI::Session;
$session = new CGI::Session("driver:File", undef, {Directory=>"/tmp"});
# Create CGI Object
$cgi = CGI->new;
# Create a new Cookie from the Session ID
$cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );
#Store Data in that Perl Session
my $name = $session->param('username') || $cgi->param('username');
$session->param("username", $name);
print "";
print "";
print "Perl Sessions";
print "";
print "";
print "From John De Castro - Perl Sessions Page 1
";
if ($name){
print("Name: $name");
}else{
print "
Name: You do not have a name set
";
}
print "
";
print "Session Page 2
";
print "Perl CGI Form
";
print "";
print "";
print "";