#!/usr/bin/perl -w

print "Content-type: text/html\n\n";

use CGI;
$q = new CGI;

	($sec,$min,$hr,$mday,$mon,$yr,$wkday,$yrday,$isdst) = localtime();
	$end = $min + 20;
	if ($end > 59) { $end - 60; }
	
print "Set-Cookie: endtime = $end\n";  #set the cookie

print "Minutes to end: $min to $end\n";

#some significant pause

$cookie = $q->cookie( "endtime" );  #get the cookie

print "$cookie\n";