#!/usr/bin/perl
# cookietest.cgi
use strict;
use CGI ':standard';
use CGI::Cookie;
use Data::Dumper;
my $time = scalar localtime;

my $cookie;
if ( param('action') ){
  $cookie = new CGI::Cookie(
  -name    => (sprintf "TESTCOOKIE_%05d",rand(10000)), 
  -value   => $time,
  -expires => '+20s' );
  CGI::delete_all();
  print redirect( -cookie => $cookie );
}

my $JS =<<EOJ;
  function display_ct() {
    var x = new Date()
    document.getElementById('ct').innerHTML = x;
  }
EOJ

print header( -cookie => $cookie ),
start_html( -title => "cookietest.cgi", -script=>$JS, 
            -onLoad=>"display_ct();" ),
h2("Cookie Test"),
h3("Server time is : $time"),
h3("Client time is : <span id='ct' ></span>");

print start_form( -method => "POST" );
print submit("action","create cookie");
print submit("refresh","refresh");
print end_form;

my %cookie = CGI::Cookie->fetch;
my $count = keys %cookie;
print h3("There are $count cookies");
print pre( Dumper \%cookie ),end_html;