challenge-030/dave-cross/perl5/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Time::Piece;

for (2019 .. 2100) {
  my $tp = Time::Piece->strptime($_ . '1225', '%Y%m%d');
  say $tp->strftime('%A %d %b %Y') if $tp->day eq 'Sun';
}