Datum

[Sascha]

Hallo allerseits, ich bin kein Perl -Meister, deswegen bin ich auf eure Hilfe angewiesen.
Mein Problem: was is an diesem Code falsch?

Get the Date

@months = ('January','February','March','April','May','June','July','August','September','October','November','December');
  @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
  ($mday,$mon,$year,$wday) = (localtime(time))[3,4,5,6];
  $year += 1900;
  $date = "$days[$wday], $months[$mon] $mday, $year";

Das wird dann mit
print "<tr><td colspan=2><font face="Arial,Helvetica" size=2 color=#660000>$date</td></tr>";
aufgerufen

Ich bekomme ständig das Folgende --- Sunday, January , 1900 --- :(

Ich bedanke mich schon im Voraus!