#!/usr/bin/perl

use strict;
use warnings;

my $interface;

open( CMD, "/sbin/ifconfig |" ) || die "can't fork: $!";
while (<CMD>) {
    if (/^(\S+)/) {
        $interface = $1;
    }
    next if !/(inet\d?)\s+addr:\s?(\S+)/;
    print $interface, q{ }, $1, q{: }, $2, qq{\n};
}
close CMD || die "bad cmd: $! $?";