#change this to perl's real path
#!/usr/bin/perl
 
 sub curDate {
  # replace localtime with gmtime for GMT (UTC)
  my($sec,  $min,  $hour, $mday, $mon,  $year, $wday, $yday, 
     $isdst) = localtime(time); 
  my $monthName = ("January", "February",   "March", "April", 
                   "May", "June", "July", "August", "September", "October",
                   "November", "December")[$mon];
  ("$monthName $mday\, " . (1900 + $year));
}

print "Content-type: text/html\n\n"; # HTTP header
print &curDate;

Now add the following code segment (a "server-side include") to your HTML document:

<!--#exec cgi="/cgi-bin/display.pl"-->