#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

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

sub show {
    my ($date, $label) = @_;
    $label ||= $date->fullday;
    say join ' ', $label, $date->month, $date->mday;
}

my $today = localtime;

show($today, 'Today');

my $yesterday = $today - ONE_DAY;
show($yesterday, 'Yesterday');

for my $minus (0 .. 7) {
    my $prev = $today - $minus * ONE_DAY;
    show($prev);
}


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,