From fba790ffbf4b5f47d96a6be4d00699d95bb03bb4 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 17 Jun 2025 22:17:55 -0400
Subject: Perl code for challenge 1

---
 challenge-326/walt-mankowski/perl/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 challenge-326/walt-mankowski/perl/ch-1.pl

diff --git a/challenge-326/walt-mankowski/perl/ch-1.pl b/challenge-326/walt-mankowski/perl/ch-1.pl
new file mode 100644
index 0000000000..2c5de8e196
--- /dev/null
+++ b/challenge-326/walt-mankowski/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use v5.40;
+use DateTime;
+
+my ($year, $month, $day) = split '-', shift @ARGV;
+
+my $dt = DateTime->new(
+                       year  => $year,
+                       month => $month,
+                       day   => $day,
+                      );
+
+say $dt->day_of_year;
-- 
cgit