diff --git a/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl b/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl
index 30ba9df7ab..fd857ccff5 100644
--- a/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl
+++ b/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl
@@ -107,16 +107,16 @@ sub CgiError {
 sub PrintVariables {
   local (%in) = @_;
   local ($old, $out, $output);
-  $old = $*;  $* =1;
+  #$old = $*;  $* =1;
   $output .=  "<DL COMPACT>";
   foreach $key (sort keys(%in)) {
     foreach (split("\0", $in{$key})) {
-      ($out = $_) =~ s/\n/<BR>/g;
+      ($out = $_) =~ s/\n/<BR>/gm;
       $output .=  "<DT><B>$key</B><DD><I>$out</I><BR>";
     }
   }
   $output .=  "</DL>";
-  $* = $old;
+  #$* = $old;
   return $output;
 }
 1;