Date Today



Construct today's date as a character string of the form January 1, 1995.

  my ($sec, $min, $hour, $mday, $mon, $year) = localtime();
  $DateToday = (January, February, March, April, May, June, July, 
    August, September, October, November, December)[$mon]
        . " " . $mday . ", " . ($year+1900);

 

Last edited November 21, 2001
Return to WelcomeVisitors