eof.cgi

 


#!/usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

@days = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
@months =
(January,February,March,April,May,June,July,August,September,October,November,December);

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

print <<"HTML code";

<HTML>
<HEAD>
<title>Get the date</title>
</HEAD>
<BODY>

<P>Today is <B>$days[$wday], $months[$mon] $mday</B>

</BODY></HTML>

HTML code