What about:

# for each connection...

 my $client_addr;

 while ($client_addr = accept(CLIENT, SERVER)) {
    # find out who connected
    my ($client_port, $client_ip) =
                     sockaddr_in($client_addr);
    my $client_ipnum = inet_ntoa($client_ip);
    my $client_host =
             gethostbyaddr($client_ip, AF_INET);
    # tell who connected
    print "got a connection from: $client_host",
          " [$client_ipnum]\n";
[download]

This is taken from: Listing C in the article Build complex GUI applications with Gtk2-Perl

HTH.