#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Lite ();

my $now = localtime (time ());
my $cgi = CGI::Lite->new;

# Retrieve existing cookies
my $cookies = $cgi->parse_cookies;
my $oldcookie = defined ($cookies) ? $cookies->{bigup401} : 'not set';

# Set new cookie
print "Set-Cookie: bigup401=$now\nContent-Type: text/html\n\n";

# Print the page
print <<EOT;
<p>Previous cookie value was $oldcookie<br />
New cookie value is $now</p>

<p><a href="$ENV{REQUEST_URI}">Get next one</a>.</p>
EOT
exit;