From e6ca31db9e78b036b689498efb3441f84c4cb8e2 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 1 Feb 2021 07:04:56 -0500
Subject: 1st commit on 098_perl

---
 challenge-098/stuart-little/perl/ch-1.pl | 13 +++++++++++++
 challenge-098/stuart-little/perl/ch-2.pl | 10 ++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 challenge-098/stuart-little/perl/ch-1.pl
 create mode 100755 challenge-098/stuart-little/perl/ch-2.pl

diff --git a/challenge-098/stuart-little/perl/ch-1.pl b/challenge-098/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..2a464bdf46
--- /dev/null
+++ b/challenge-098/stuart-little/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <path-to-file> <number>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+open my $fh, "<", $ARGV[0];
+read $fh, my $txt, $ARGV[1];
+say $txt;
+    
diff --git a/challenge-098/stuart-little/perl/ch-2.pl b/challenge-098/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..c1c50de86f
--- /dev/null
+++ b/challenge-098/stuart-little/perl/ch-2.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <target> <space-separated array entries>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+say scalar(grep {$_ < $ARGV[0]} @ARGV[1..$#ARGV]);
-- 
cgit