The server's IP address is stored in an environmental variable - you could use something like the following, extracting only SERVER_ADDR

#!/usr/bin/perl

use warnings;
use strict;
use CGI qw(:standard);

print header();
print start_html(-title=>"Environment Variables Test Page");
foreach my $var (sort keys %ENV) {
        print b($var), " is ", $ENV{$var}, br();
}


print end_html();
[download]

So, the IP address could be accessed by $ENV{SERVER_ADDR}.
Hope that helps
davis
Is this going out live?
No, Homer, very few cartoons are broadcast live - it's a terrible strain on the animator's wrist