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";
}