#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "CGI test page
";
$machine=`hostname`;
# Get uptime
$getuptime = `/usr/bin/uptime`;
# Get whoami
$whoami = `whoami`;
print "Up : ".$getuptime."
\n";
print "Host: ".$machine."
\n";
print "I am: ".$whoami."
\n";
print "
Congratulation... CGI is working nice.\n";
print "";