Ace Variables - Environment Variables

#!/usr/bin/perl $browser = $ENV{'HTTP_USER_AGENT'}; $host = $ENV{'REMOTE_HOST'}; $httphost = $ENV{'HTTP_HOST'}; $ip = $ENV{'REMOTE_ADDR'}; $tds = ''; print "Content-type: text/html\n\n"; print 'Ace Variables - Environment Variables', "\n\n"; print<<"EOTABLEHEAD";

Your IP Address: $ip
Your Remote Host: $host
Your HTTP Host: $httphost
Your Browser and Version: $browser

EOTABLEHEAD foreach $varname (sort keys %ENV) { print '', "$tds $varname", '', "$tds $ENV{$varname}", '', "\n"; } print '', "\n", '

Environment Variables

', "\n\n";