View all information abaut web host:

CODE

#!/usr/bin/perl
#down.cgi

use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);

print "Content-Type: text/html\n\n";
print "<html><body>";
print "Script_name: $ENV{'SCRIPT_NAME'}<br>\n";
print "S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n";
print join("<br>",map("$_=$ENV{$_}",keys %ENV));
print "</body></html>";

Reply