#!/usr/bin/perl
print "content-type: text/html \n\n";
# SET UP THE TABLE
print "<table border='1'>";
print "<th>Test</th><th>Value</th><th>Expected Value</th><th>Result</th>";
$x=system("who",">>/var/www/cgi-bin/new.txt");