Select Code to Download

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
    localtime(time);
my $monday = $mday - $wday + 1;
my $friday = $mday - $wday + 5;