#!/usr/bin/perl -l

use strict;
use warnings;
use Time::Piece;

my $t = localtime;
$t -= Time::Piece::ONE_DAY * $t->day_of_week;
print $t += Time::Piece::ONE_DAY for 1..7;