#!/usr/bin/perl

use CGI qw(:standard);

if (cookie('firstVisit')) {
  $firstVisit=cookie('firstVisit');
  $first="not ";
  print header();
} else {
    $firstVisit=localtime;
    $first="";
    $cookie = cookie(-name=>'firstVisit',
			     -value=>$firstVisit,
			     -expires=>'+2y',
                             -path=>'/');

  print header(-cookie=>$cookie);
}
$currentDate=localtime;
print start_html("First Visit Check"), h1("Visitor Status");
print p("This is $first your first visit.");
print p("We have marked your first arrival at $firstVisit".
        " and we will celebrate it as a holiday each year".
        " at that time");
print hr();
print p("It is now $currentDate");
print end_html();