#!/usr/bin/env perl -l

use strict;
use warnings;

BEGIN { print scalar localtime }

use Time::Piece;
use Time::Seconds;

my $t = localtime;
my @weekdays = ($t->mday);
my %lastweek = ($t->day => $t->mday);

$t -= ONE_DAY;
push @weekdays, $t->mday;
$lastweek{$t->day} = $t->mday;

for (1 .. 5) {
    $t -= ONE_DAY;
    $lastweek{$t->day} = $t->mday;
}

push @weekdays, @lastweek{qw{Sun Mon Tue Wed Thu Fri Sat}};

print "@weekdays";