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

##</code><code>##

my $Date = sprintf("%s, %02d %3s %04d %02d:%02d:%02d %5s",$dayofweek[$wday],$mday,$monthnames[$mon],$year,$hour - $isdst,$min,$sec,$timezone);