Select Code to Download

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

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