Select Code to Download

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

my $week_of_seconds = 60 * 60 * 24 * 7;
...
my ($sec,$min,$hour,$mday,$mon,$year,
     $wday,$yday,$isdst)=localtime($week_ago);