From f710722f0c0725575f5f77d048c3815090e70f38 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Sun, 7 Sep 2025 19:56:37 -0600
Subject: Fix warn

---
 challenge-338/wlmb/perl/ch-1.pl | 2 +-
 challenge-338/wlmb/perl/ch-2.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-338/wlmb/perl/ch-1.pl b/challenge-338/wlmb/perl/ch-1.pl
index d5eb7efa6e..145bcade82 100755
--- a/challenge-338/wlmb/perl/ch-1.pl
+++ b/challenge-338/wlmb/perl/ch-1.pl
@@ -15,5 +15,5 @@ die <<~"FIN" unless @ARGV;
     FIN
 for(@ARGV){
     try{say "$_ -> ", pdl($_)->sumover->max}
-    catch($e){say $e}
+    catch($e){warn $e}
 }
diff --git a/challenge-338/wlmb/perl/ch-2.pl b/challenge-338/wlmb/perl/ch-2.pl
index f77b352676..248fa4a59b 100755
--- a/challenge-338/wlmb/perl/ch-2.pl
+++ b/challenge-338/wlmb/perl/ch-2.pl
@@ -21,5 +21,5 @@ for my ($x, $y)(@ARGV){
         my $result = ($p-$q(-1:0))->abs->max;
         say "$x, $y -> ", $result;
     }
-    catch($e){ say $e }
+    catch($e){ warn $e }
 }
-- 
cgit