#!/usr/local/bin/perl --
use CGI::Carp qw(fatalsToBrowser);
$|=1;
$RMIP=$ENV{'REMOTE_ADDR'};
$RUAG=$ENV{'HTTP_USER_AGENT'};

-----(later on in the code)-----

# RECORD USERS IP ADDRESSES
	open (USERIP, ">>/usr/local/www/htdocs/classicappliances/NEW DISCUSS/PROFILES/USER-IP-FILE.txt");
	flock (USERIP, 2);
	print USERIP "$NAME_CHOICE--REMOTE ADDR-$RMIP---user agent-$RUAG\n";
	close (USERIP);
	flock (USERIP, 8);