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