#!/usr/bin/perl
#######################################################################
# date.cgi
#
# Copyright 2002 Agent Solutions. All rights reserved.
#######################################################################

($tmp,$tmp,$tmp,$tmp,$tmp,$year,$tmp,$tmp,$tmp) = gmtime(time()-28800);  
$year += 1900;

print "Content-type: text/html\n\n";
print "document.write(\'-$year\')";

exit;