#!/usr/bin/perl
use CGI ':standard';
use LWP::Simple qw/get/;
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print qq{<meta http-equiv="refresh" content="5;URL=http://url.....:port/cgi-bin/upgprocess.cgi">};
print "\n";
print "Server Status
\n\n";
print "\n";
print "