This is a test cgi script for testing whether cgi scripts are working on the server. Give .cgi extension to the file

#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
while (($key, $val) = each %ENV) {
print "$key = $val<BR>\n";
}