This tutorial will teach you how to display server information with Perl.
Code
Code:
#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n
<html>
<head>
<title>Display Server Information</title>
</head>
<body>
<h1>Server Information</h1>
<hr>
<pre>
*Server Name: *$ENV{SERVER_NAME} #Server Name
*Server Port: *$ENV{SERVER_PORT} #Server Port
*Server Software: $ENV{SERVER_SOFTWARE} #Server Software
*Server Protocol: $ENV{SERVER_PROTOCOL} #Server Protocol
</pre>
<hr>
</font>
</body>
</html>";
Notes
- Remember to Chmod File to 0755 or higher
- File must be placed in the CGI-BIN
Example Here