#!/usr/bin/perl print "Content-type: text/html\n\n"; $host=`hostname`; chop $host; $uptime=`uptime`; $w=`w -s -h`; print < $host Status

$host uptime

$uptime

logged on at $host

$w

EOF exit;