my @Now = localtime(time);
print "Today: $Now[3] - $Now[6]\n";
my $Mon = time - (86400 * ($Now[6] - 1));
my @Monday = localtime($Mon);
print "Monday: $Monday[3] - $Monday[6]\n";
my $Fri = $Mon + (86400 * 4);
my @Friday = localtime($Fri);
print "Friday: $Friday[3] - $Friday[6]\n";