#!/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";

##</code><code>##

Sat Apr 29 16:20:18 2017
29 28 23 24 25 26 27 28 29

##</code><code>##

29 28 23 24 25 26 27 28 29 16

##</code><code>##

29 28 16 17 18 19 20 21 22 23