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