#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# User Agent
#-------------------------------------------------------------
#

$remote_host = $ENV{'REMOTE_HOST'};
$remote_addr = $ENV{'REMOTE_ADDR'};
$user_agent = $ENV{'HTTP_USER_AGENT'};

print "Remote_host $remote_host<BR>\n";
print "Remote_Address $remote_addr<BR>\n";
print "User_Agent $user_agent<BR>\n";

exit;