#All the values you can get if you need them
#my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
#                                                localtime(time);

my ($mday,$wday) = (localtime())[3,6];

die unless($wday == 2 && $mday <= 7);
[download]