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