From 920c84164ce468c7fb5e6c7efc208160adcf5404 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sun, 18 Apr 2021 10:20:38 -0400
Subject: Perl solutions to challenge 108.

---
 challenge-108/adam-russell/perl/ch-1.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-108/adam-russell/perl/ch-1.pl b/challenge-108/adam-russell/perl/ch-1.pl
index 845cf74c19..ccf434f002 100644
--- a/challenge-108/adam-russell/perl/ch-1.pl
+++ b/challenge-108/adam-russell/perl/ch-1.pl
@@ -14,11 +14,11 @@ my $stderr = capture_stderr {
 $stderr =~ m/at\s(0x.*\n).*/;
 $address = $1;  
 chomp($address);
-print $address . "\n"; 
+print "Address of constant A: $address\n"; 
 $stderr = capture_stderr {
     Dump($a)
 };
 $stderr =~ m/at\s(0x.*\n).*/;
 $address = $1;  
 chomp($address);
-print $address . "\n"; 
+print "Address of \$a: $address\n"; 
-- 
cgit