Here's another way to get the IP addresses of your interfaces using IO::Interface and IO::Socket:

#!/usr/bin/perl

use strict;
use warnings;
use IO::Interface;
use IO::Socket;

# Create a simple socket to use with interfaces
my $s = IO::Socket::INET->new(Proto => 'udp');

# Get list of interfaces
my @interfaces = $s->if_list;
my $addr;

# Iterate over list of interfaces
foreach (@interfaces) {
        $addr = $s->if_addr($_);
        print "interface = $_ : address = $addr\n";
}
[download]