Here's what it should look like:

#!/usr/bin/perl -w
use strict;
use CGI;

  # start new cgi process
my $main=new CGI;
  # print html headers
print $main->header;
  # print html tags and add title
print $main->start_html ("Printer Status");

  # open /usr/lsys/printstatus/printstatus.out under filehandle LOGFIL
+E
open(LOGFILE," /usr/lsys/printstatus/printstatus.out");
  # while there is data in LOGFILE
while(<LOGFILE>) {
    # remove newlines (\n) from input
    chomp;
    # if the imput is not the divider line
    if (! ($_=~/----------------------------/)) {
        # put the contents of the current line into the array @status
        # we are spliting on the space so that every word seperated by
        # a space becomes a new element in the array
        my @status = split(/ /, $_);
        # if the first element of @status does not equal 'name' (the t
+itle header
        if (($status[0] eq "name") && ($status[1] eq "display")) {
          # print the start of the table
            print "<center><table width=250 border=1><tr align=center>
+\n";
          # for each element in @status
            for (@status) {
            # print a new table cell
                print "<td><b>$_</b></td>\n";
            }
          # close the table row
            print "</tr>\n";
        }
    }
}
  # close the table
print "</table>\n";
  # close LOGFILE
close (LOGFILE);
exit;
[download]

Thanks alot once again! Do you have any advice on setting up an array, I have to take input from 3 different files and put them into a nice array. Any suggestions? Is it difficult .

something like this will read in all the files listed in @files. It also cuts down on repetitive code and allows scalability.

my @files= qw| /path/to/file1 /path/to/file2 /path/to/file3 |;
my @allfiles;
for my $filename(@files){
     open(FILE," $filename") || die "Cannot  open $filename: $!\n";
     while(<FILE>) {
          push @allfiles, $_;
     }
     close(FILE);
}
[download]


-p