Now that you have some good answers, might i interest you in anther CPAN module? ;) Time::Piece

#!/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;
[download]

You mention that you want Monday through Sunday ... this code does so, but i usually use Sunday through Saturday. Just add one to day_of_week() to achieve this.