use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

my $ipaddr = remote_host();
                                               
# Now log the address $ipaddr ...