name display toner level ----------------------------------- printer1 toner low 25% printer2 toner low 1% printer3 etc etc etc ##

##

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

my $main=new CGI;
print $main->header;
print $main->start_html("Printer Status");

open(STATUSFILE," your_outfile") || die "Cannot open logfile!: $!\n";
while() {
        chomp;
        if (! ($_=~ /-----------------------------------/)) {
                #my ($printer,$display,$toner,$level) = split(/ /, $_);
                my @status = split(/ /, $_);
                if (($status[0] eq "name") && ($status[1] eq "display")) {
                        print "\n";
                        for (@status) {
                                print "\n";
                        }
                        print "\n";
                } else {
                        for (@status) {
                                print "\n";       
                        }
                        print "\n";
                }
        }
}
print "$_
$_\n";       
close(STATUSFILE);
exit;