for my $nic (networkInfo()) {
    if (defined($nic->{ip}) {
        print "DeviceMain: $nic->{device} " .
            "has IP Address $nic->{ip}\n" .
            "\tMask: $nic->{mask}\n" .
            "\tBroadcast: $nic->{bcast}\n";
    }     

    if (defined($nic->{ip6}) {
        print "DeviceMain: $nic->{device} " .
            "has IPv6 address $nic->{ip6}\n";
    }
}