From 13eb7ac802214f8dbd47270979f506d007acde3e Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Mon, 11 Jan 2021 17:49:11 +0100
Subject: Example script for task 2

---
 challenge-095/jo-37/perl/ch-2-ex.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-095/jo-37/perl/ch-2-ex.pl

diff --git a/challenge-095/jo-37/perl/ch-2-ex.pl b/challenge-095/jo-37/perl/ch-2-ex.pl
new file mode 100644
index 0000000000..ec63be8f36
--- /dev/null
+++ b/challenge-095/jo-37/perl/ch-2-ex.pl
@@ -0,0 +1,19 @@
+use v5.16;
+
+# Let "Stack" print calls and results
+$Stack::verbose = 1;
+
+say 'create Stack';
+my $stack = Stack->new;
+
+$stack->push(2);
+$stack->push(-1);
+$stack->push(0);
+$stack->pop;
+$stack->top;
+$stack->push(0);
+
+$stack->min;
+
+$stack->max;
+$stack->size;
-- 
cgit