For *NIX-type platforms, there is the IO::Interface module which allows local interfaces to be enumerated via additional methods added to IO::Socket objects. These methods allow interface information to be both retrieved and modified.

For example ...

use IO::Interface;
use IO::Socket;

my $sock = IO::Socket::INET->new( 'Proto' => 'udp' );
foreach my $iface ( $sock->if_list ) {
    print $iface, " ", 
        $sock->if_addr, "/",
        $sock->if_netmask, "\n";
}
[download]