#!/usr/bin/perl -w
use strict;
use includes::User;
use DBI;
use CGI;
use CGI::Session;
use HTML::Template;
my $cgi = new CGI;
print $cgi->header;
my $session = new CGI::Session(undef, undef, {Directory => 'sessions'} );
my $cookie = $cgi->cookie(CGISESSID => $session->id);
print "Cookie: $cookie<br>";
########################################
# FILE 2
########################################
# It doesn't pickup the saved session (even though it saves the file in the
# sessions directory
#!/usr/bin/perl -w
use strict;
use includes::User;
use DBI;
use CGI;
use CGI::Session;
use HTML::Template;
my $cgi = new CGI;
my $page_access=1;
print $cgi->header;
my $sid = $cgi->cookie("CGISESSID") || undef;
print "sid is $sid"; # Undefinned!