From 2173e37687d0570bf8bda986272169af51c88a60 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Mon, 1 Nov 2021 14:46:55 +0100
Subject: Solution to task 1

---
 challenge-137/jo-37/perl/ch-1.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 challenge-137/jo-37/perl/ch-1.pl

diff --git a/challenge-137/jo-37/perl/ch-1.pl b/challenge-137/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..c4c36da145
--- /dev/null
+++ b/challenge-137/jo-37/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -s
+
+use v5.16;
+use warnings;
+use DateTime;
+
+# Maybe I'm missing something: The year's last day's week number is the
+# year's week count.
+say join ' ', grep DateTime->new(year => $_, month => 12, day => 31,
+    time_zone => 'floating')->week_number == 53, 1900 .. 2100;
+
-- 
cgit