Select Code to Download

  # $logfilename being defined previously....
  my (%errors);
...
      }
    }
  close(LOGFILE);

  print qq{ERROR REPORT\n\n}, 
    qq{Error message\tOccurrances\n\tLines found on\n\n};
...
    print $k, qq{\t}, $errors{$k}{count}, qq{\n}, 
      qq{\t}, join(q{,}, @{$errors{$k}{linenumber}}), qq{\n};
  }

ERROR REPORT

...
        13
Error msg 8675309       5
        3,7,21,55,82