print "Content-type: text/html\n\n";
print "";
print "\n";
print "\n";
print "Mod_Perl is working fine\n";
print "
\n";
print "server software : $ENV{'SERVER_SOFTWARE'}\n";
print "
\n";
print "client software : $ENV{'HTTP_USER_AGENT'}\n";
print "
\n";
print "http referer : $ENV{'HTTP_REFERER'}\n";
print "
\n";
print "opened file : $ENV{'SCRIPT_FILENAME'}\n";
print "
\n";
print "server adress :$ENV{'HTTP_HOST'}\n";
print "
\n";
print "your adress : $ENV{'REMOTE_ADDR'}\n";
print "\n";
print "
\n";
print "\n";
print "| Server Variable | Value |
\n";
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "| ${var} | \n";
print "${val} |
\n";
}
print "
\n";
print "Written by Vlad Alexa Mancini