#!/usr/bin/perl -w

use strict;
use CGI::Push	qw(:standard);
use CGI::Carp	qw(fatalsToBrowser);
use CGI::Carp	qw(warningsToBrowser);

do_push(
	-type		=> "text/plain",
	-nph		=> 0,
	-delay		=> 1,
	-next_page	=> sub { 
		return	`uptime`, "\n",
			`tail /var/www/logs/access_log`, "\n", 
			`ps auxw`; 
	},
);