no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+====== Print Environment variable ======
+# this is really helpful while working with proxy etc..
+<code perl>
+#!/usr/bin/perl -wT
+use strict;
+use Net::Domain qw(hostname hostfqdn hostdomain);
+use CGI qw(:standard);
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+print header;
+print start_html("Environment");
+foreach my $key (sort(keys(%ENV))) {
+    print "$key = $ENV{$key}<br>\n";
+}
+my $fqdn = hostfqdn();
+print "Hostname = $fqdn \n";
+print end_html;
+</code>