#!/usr/bin/perl use CGI qw(:standard); $cookie_name = "cookiecompte"; $session_timeout = "+2M"; $visites = cookie($cookie_name) || 0; $visites ++; $cook = cookie(-NAME => $cookie_name, -VALUE => $visites, -EXPIRES => $session_timeout,); print header (-COOKIE => $cook); print < Revenez bientot. FIN # c'est fini :-)