#!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"; }