formathtml.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 "Today is <B>$days[$wday], $months[$mon] $mday</B>.";

---