#!/usr/bin/perl use strict; use CGI qw( :standard ); use Digest::MD5 qw(md5_hex); my $id = cookie( "sessionID" ); my $newuser = 0; if( !$id ) { # Set expiration time my $expires = gmtime( time() + 86400 ); $id = md5_hex(rand); # $id = rand; print "Set-Cookie: sessionID=$id; expires=$expires; \n"; $newuser = 1; } # Display a feedback message print header(); print start_html(); if( $newuser ) { print h1("Welcome visitor!") } else { print h1("Welcome back!"); } print end_html();