# # The XMP tag embedded inside of this text is there to keep the browser # from attempting to display the HTML tags embedded within the PERL code #!/usr/bin/perl -wT use strict; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print header; print start_html("Environment"); print "<HTML><HEAD><TITLE></TITLE></HEAD><BODY bgcolor=#CCCCCC>"; print "<H1 align=center>Dynamic DNS Server Identifier</H1>"; # The original listing which provides a complete list of the Environment Variables # foreach my $key (sort(keys(%ENV))) { # print "$key = $ENV{$key}<br>\n"; # } print "REMOTE_ADDR = $ENV{REMOTE_ADDR}<br>\n"; print "</BODY></HTML>"; print end_html;