#!C:/perl/bin/perl --

use strict;
use CGI qw/ :standard /;
use CGI::Cookie;
use CGI::Carp qw/ fatalsToBrowser /;
use CGI::Session;

my $q = new CGI;
my $session = new CGI::Session("driver:File",
              $q->cookie('CGISESSID') || $q->param('CGISESSID') || undef, 
              { Directory => 'C:/temp/test/area' } )
    		    or die ($CGI::Session::errstr);

my $session_id = $session->id();
print $session->header;
print $q->start_html(-title=>"www\.test\.com");#, $q->Dump, $q->query_string;
my $in=$session->param('loggedin');
print "in = ", ((defined $in) ? $in : "UNDEFINED");
my $count = $session->param("loggedin") || "1";
$session->param( "loggedin", ($count+1) );
print $q->end_html;


sub not_called
{
	my($count);
	print "hello - i am never called !";

	#$count=$session->param( "loggedin");  <<<<< PROBLEM
}