[hide=1][code]use strict;
my $remote_addr = $ENV{'REMOTE_ADDR'};