# this is really helpful while working with proxy etc..

#!/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;