#!/usr/bin/perl
print "Content-type:text/html\n\n";
@days = ("Sunday","Monday","Tuesday","Wednesday","Thursday",
	   "Friday","Saturday");
@months = ("January","February","March","April","May","June",
	     "July","August","September","October","November",
	     "December");

($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = 
localtime(time);
$year = $year + 1900;
print "Today is $days[$wday], $months[$mon] $mday, $year.\n";