#!/usr/local/bin/perl -w

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use MIME::Base64;
use CGI::Cookie;

my $query = new CGI;
my %cookies = fetch CGI::Cookie;
my $cookie = $cookies{'Cookie-Name'}->value;

print $query->header;
print $query->start_html;
print "<h1>Cookie</h1><br>\n";
print "Straight cookie: $cookie\n<br><br>\n";

my $decoded = decode_base64($cookie);

my($time1, $time2) = unpack 'NN', $decoded;

substr($decoded, 0, 8) = '';

print join "<BR>", "Decoded cookie:",
  scalar(localtime $time1), scalar(localtime $time2),
  split /\0/, $decoded;

print $query->end_html;