#!/usr/local/bin/perl 

use Net::RawIP;
$a = ifaddrlist;
map { print "$_ -> $a->{$_}\n" } keys %$a;