#!/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 "";