#!/usr/bin/perl
use CGI;
use Apache::Session::File;
my $query = new CGI;
my %session;
my $id = undef;
$id = $query->cookie(-name=>"SID01");
tie %session, 'Apache::Session::File', $id,
{ Directory => "../../http-docs/",
LockDirectory =>"../../http-docs/"};
if ($id == undef) {
$cookie = $query->cookie( -name=>'SID01',
-value=>$session{_session_id},
-expires=>'+1y',
-path=>'/session');
print $query->header(-cookie=>$cookie);
print "Assigned session ID
n";
} else {
print $query->header();
print "Not assigned session ID
n";
};
$id = $session{_session_id};
print "Content-type: text/html\n\n";
print "n";
print " Session IDn";
print " n";
print " Your session ID is $idn";
print " n";
print "n";