From cd38d11a6faf7a7b26bb660a062361afb4209a16 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Sun, 15 Aug 2021 10:37:25 +0200
Subject: Admit failing at task 1

---
 challenge-125/jo-37/perl/ch-1.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/challenge-125/jo-37/perl/ch-1.pl b/challenge-125/jo-37/perl/ch-1.pl
index 3b9f2aae65..724a769e19 100755
--- a/challenge-125/jo-37/perl/ch-1.pl
+++ b/challenge-125/jo-37/perl/ch-1.pl
@@ -5,6 +5,11 @@ use Test2::V0;
 use Math::Prime::Util qw(fordivisors sqrtint lastfor is_power);
 use experimental 'signatures';
 
+###
+### I really should have been more careful.  This does not work.
+### Please ignore.
+###
+
 our ($tests, $examples);
 
 run_tests() if $tests || $examples;	# does not return
-- 
cgit