#!/usr/bin/perl

open(f,"tail -500  /usr/idemo/status.txt | ");

print "Content-type:text/html\n";
print "Pragma:No-Cache\n\n";
print "<b>Last 500 status entries</b>";
print "<pre>";
while(<f>) {
	@a=split(/\|/,$_);
	print $a[0]."\t".$a[1]."\t".$a[2]."\t".$a[3]."\t".$a[4]."\n";
}
print "</pre>";