# Note in order to execute this cgi script # You must remove the first # sign below in the ../usr/bin/perl line # I have written it like this so you could read the code! # Otherwise the code would be acted up and you could never read it. ##!/usr/bin/perl # Send error messages to the user, not system log open(STDERR,'<&STDOUT'); $| = 1; # Headers terminate by a null line: print "Content-type: text/html\n\n"; $host = `hostname`; chop $host; $uptime = `uptime`; $w = `w`; print < $host Status

What's Happening at $host

$uptime

$w

BUNCHASTUFF exit;