- Added solution by Mark Anderson.

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-019/mark-anderson/perl5/ch-1.pl b/challenge-019/mark-anderson/perl5/ch-1.pl
new file mode 100644
index 0000000000..db2a2ac1c2
--- /dev/null
+++ b/challenge-019/mark-anderson/perl5/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+use DateTime;
+
+for my $year (1900 .. 2019) {
+    for my $month (1 .. 12) {
+        my $dt = DateTime->last_day_of_month(
+                    year  => $year,
+                    month => $month);
+
+        while($dt->day_name ne 'Sunday') {
+            $dt->subtract(days => 1);
+        }
+
+        if($dt->weekday_of_month == 5                     and
+          $dt->subtract(days => 1)->weekday_of_month == 5 and
+          $dt->subtract(days => 1)->weekday_of_month == 5) {
+              say "$month/$year";
+        }
+    }
+}
+