Code:

      print "Before fubar\n" . Dumper(@g::TaskList);
      
   $Body .= "$_<br>" while(<LOG>);

      print "After fubar\n" . Dumper(@g::TaskList);

Output:

  Before fubar
  $VAR1 = 'Localize';
  $VAR2 = 'ErrorCheck';

  After fubar
  $VAR1 = undef;
  $VAR2 = 'ErrorCheck';


##</code><code>##

Working (identical?) version:

   while (my $line = <LOG>)
   {
      $Body .= "${line}<br>";
   }