From 70dbfad88da8fbeb9d7016e88db50e6e926715e8 Mon Sep 17 00:00:00 2001
From: Samuel Breese
Date: Thu, 27 Oct 2022 20:22:36 -0400
Subject: Add idiomatic Perl5 implementation

---
 entries/chameco/driver.sh |  6 ++++++
 entries/chameco/fib.pl    |  1 +
 people.json               | 11 +++++++++++
 3 files changed, 18 insertions(+)
 create mode 100755 entries/chameco/driver.sh
 create mode 100644 entries/chameco/fib.pl

diff --git a/entries/chameco/driver.sh b/entries/chameco/driver.sh
new file mode 100755
index 0000000..1f90a04
--- /dev/null
+++ b/entries/chameco/driver.sh
@@ -0,0 +1,6 @@
+#!/bin/sh
+cp fib.pl result.pl
+for _ in $(seq "$1"); do
+    echo "$(perl result.pl)" > result.pl
+done
+wc -l result.pl
diff --git a/entries/chameco/fib.pl b/entries/chameco/fib.pl
new file mode 100644
index 0000000..472c58f
--- /dev/null
+++ b/entries/chameco/fib.pl
@@ -0,0 +1 @@
+$t='$t=%c%s%c;while($i<int(__LINE__*1.61803+0.5)){printf($t,39,$t,39,10);++$i}%c';while($i<int(__LINE__*1.61803+0.5)){printf($t,39,$t,39,10);++$i}
diff --git a/people.json b/people.json
index 81f71c1..8ff1a98 100644
--- a/people.json
+++ b/people.json
@@ -56,6 +56,17 @@
 			}
 		]
 	},
+	{
+		"github": "chameco",
+		"name": "Sam Breese",
+		"title": "professional screen observer",
+		"entries": [
+			{
+				"name": "idiomatic perl5",
+				"link": "./entries/chameco/fib.pl"
+			}
+		]
+	},
 	{
 		"github": "ionathanch",
 		"name": "Jonathan Chan",
-- 
cgit v1.2.3-70-g09d2