Perl code for challenge 1

1 files changed, 13 insertions, 0 deletions

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;