#!/usr/bin/perl -w -T # laskuri toteutettuna evästeellä use strict; use CGI; my $q = new CGI; #luetaan eväste my $lkm = $q->cookie('lkm'); my $cookie; # jos cookie löytyi kasvatetaan # sen arvoa yhdellä muuten # alustetaan ykkösellä if ( $lkm ) { $lkm++; } else { $lkm = 1; } $cookie = $q->cookie(-name=>'lkm', -value=>$lkm, -expires=>'+5h' ); print $q->header(-cookie=>$cookie); # tulostetaan sivun sisältö # Koska tulostettavassa tekstissä on lainausmerkkejä # niin määrätään erikseen lopetusmerkiksi FOO print < Yhteenlaskua evästeellä

Yhteenlaskua evästeellä

Evästeen arvo oli $lkm. Lataa sivua uudelleen niin arvo kasvaa

FOO