#!c:/Perl/bin/perl

use strict;
use CGI qw/:standard/;
my $loginCookie=cookie(-name=>'loggedIn');
$loginCookie="false" if(!defined($loginCookie));

if($loginCookie eq "true"){
	my $runningSum=cookie(-name=>'runningSum');
	if(defined($runningSum)){ $runningSum++; } 
	else { $runningSum=0; }
	
	my $cookie = cookie(-name=>'runningSum',-value=>$runningSum);
	print header(-cookie=>$cookie), 
		start_html('Counting with cookies'), 
		h1('Counting with cookies');
	print "You have been here $runningSum times before\n";
} else {
	print header(), 
		start_html('Counting with cookies'), 
		h1('Counting with cookies');
	print "You are not logged in!\n";
}