#!/usr/bin/perl
#
# "maincenter" system information
# http://www.n3t.net
# decker@n3t.net
# 
#################################

use File::stat;
@uptime = `uptime`;
@date = `date`;
@df = `df -h`;
@top = `top |head -n 15`;
#@who = `w -hn`;

print "Content-type: text/html\n\n";

print "<pre>\n";
print "@date\n";
print "@uptime\n";
print "@top\n";
print "@df\n";

#foreach $line(@who) {	print "$line<br>\n";	}