#!/usr/local/bin/perl -w
#
print "\nDOJV Sorts - Last 24 Hours\n";
print "DOJV Sorts - Last 24 Hours
\n";
print "Back\n";
print "\n";
print "| DATE - TIME | Memory | Disk | \n";
open(OLD,"srv.rm1");
while () {
chop;
@words=split(' ');
$w0=$words[0];
$w1=$words[1];
$w2=$words[2];
print "| $w0 | $w1 | $w2 | \n";
}
close(OLD);
print "
|---|
Back\n\n\n";