#!/usr/local/bin/perl -w use strict; # force fflush(3) after every write or print. $| = 1; my $procs=`ps -ef |wc -l`; chomp $procs; my $load=`uptime | awk '{print \$10}' | sed 's/,\$//'`; chomp $load; print "Content-type: text/html\n\n"; print '

This server live performance stats

(refreshes every 5 seconds)