Added ch1.pl

1 files changed, 14 insertions, 0 deletions

diff --git a/challenge-037/ruben-westerberg/perl/ch-1.pl b/challenge-037/ruben-westerberg/perl/ch-1.pl
new file mode 100755
index 0000000000..e1c8b011ea
--- /dev/null
+++ b/challenge-037/ruben-westerberg/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Time::Piece;
+use Time::Seconds;
+
+my $t=Time::Piece->strptime("2019","%Y");
+my %months;
+while ($t->yy==19) {
+	$months{$t->fullmonth}++ if ! ($t->wdayname =~ /Sat|Sun/);
+	$t+=ONE_DAY;
+}
+print "$_: $months{$_}\n" for qw<January February March April May June July August September October November December>;