Select Code to Download

$ip_addr = $ENV{'REMOTE_ADDR'};
$host_name = gethostbyaddr(inet_aton($ip_addr), AF_INET);
$req_method = $ENV{'REQUEST_METHOD'};

$host_port = $ENV{'REMOTE_PORT'};
$user_agent = $ENV{'HTTP_USER_AGENT'};
$mac_address = `/sbin/arp -a $ip_addr` =~ /at\s+(\S+)\s+/;
$user_referer = $ENV{'HTTP_REFERER'};

#!/usr/bin/perl
print "Content-type: text/html\n\n";
...
   $n++;
}
print qq~The remort port is $keys[15]~;