#!/usr/bin/perl use CGI ':standard'; use LWP::Simple qw/get/; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print qq{}; print "\n"; print "\n"; print "

Server Status

\n\n"; print "\n"; print "\n"; print "\n";