====== 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>