use Socket;

my $remote_addr = $ENV{REMOTE_ADDR};
my $remote_host =
    gethostbyaddr(itet_aton($remote_addr), AF_INET);

if ($remote_host =~ /\.oracle\.com$/) {
   # Do whatever
}