#!perl
# page1.pl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBI;
 
my $dir = '/inetpub/wwwroot/data/';
my $dsn = $dir.'session_management.db';
my $session = CGI::Session->new("driver:sqlite", undef ,
  {DataSource=>$dsn})
  or die (CGI::Session->errstr);
	
my $sid = $session->id();
my $session_status = $session->param("user_logged_in");
my $text = "
Session ID: $sid;
Session status: $session_status";

my $cgi = new CGI;
print $cgi->header();
print $cgi->start_html("Session Test");	
print $cgi->h4('Check status'),
$cgi->pre($text),
$cgi->a({href=>'login.pl'},"Goto Login"),
$cgi->end_html;