my $addrh = new IO::File;
open $addrh, "-|", qw(ip -o), "-$ip", qw(addr show)
or die "spawn addr $ip show: $!\n";
my $afstr = $ip==4 ? 'inet' : $ip==6 ? 'inet6' : die;
while (<$addrh>) {
my $addrh = new IO::File;
open $addrh, "-|", qw(ip -o), "-$ip", qw(addr show)
or die "spawn addr $ip show: $!\n";
my $afstr = $ip==4 ? 'inet' : $ip==6 ? 'inet6' : die;
while (<$addrh>) {