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 }
 }