use DateTime qw();
my $now             = DateTime->now;
my $previous_monday = $now->subtract(days => ($now->wday_0 || 7));
my $formatted_date  = $previous_monday->ymd(q());   # 20111114