From 03e025417bd9e9ec9659d96c94bcc9f661069b8e Mon Sep 17 00:00:00 2001
From: Jen Guerra <southpawgeek@users.noreply.github.com>
Date: Sun, 4 Dec 2022 01:48:11 -0500
Subject: task 1

---
 challenge-193/southpawgeek/perl/ch-1.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-193/southpawgeek/perl/ch-1.pl

diff --git a/challenge-193/southpawgeek/perl/ch-1.pl b/challenge-193/southpawgeek/perl/ch-1.pl
new file mode 100644
index 0000000000..8baf8a0a11
--- /dev/null
+++ b/challenge-193/southpawgeek/perl/ch-1.pl
@@ -0,0 +1,12 @@
+use feature qw/say/;
+use strict;
+
+my ($bits) = @ARGV;
+
+die "positive integers only\n" unless $bits =~ /^-?\d+\z/ && $bits > 0;
+
+my $count = 0;
+while ($count < 2 ** $bits) {
+	say sprintf('%0'.$bits.'b', $count);
+	$count++;
+}
\ No newline at end of file
-- 
cgit