#! /usr/bin/perl -w

use IO::Socket;
use Data::Dumper::Simple;
use IO::Interface qw(:flags);

my $s = IO::Socket::INET->new(Proto => 'udp');   
@interfaces = $s->if_list; 
print Dumper @interfaces;

for my $if (@interfaces) {
	next if $if =~ /usb|iwn|lo/;
    print "interface = $if\n";
    print "addr =      ",$if->addrese,"\n",
          "broadcast = ",$if->broadcast,"\n",
          "netmask =   ",$if->netmask,"\n",
          "dstaddr =   ",$if->dstaddr,"\n",
          "hwaddr =    ",$if->hwaddr,"\n",
          "mtu =       ",$if->mtu,"\n",
          "metric =    ",$if->metric,"\n",
          "index =     ",$if->index,"\n";

    print "is running\n"     if $if->is_running;
    print "is broadcast\n"   if $if->is_broadcast;
    print "is p-to-p\n"      if $if->is_pt2pt;
    print "is loopback\n"    if $if->is_loopback;
    print "is promiscuous\n" if $if->is_promiscuous;
    print "is multicast\n"   if $if->is_multicast;
    print "is notrailers\n"  if $if->is_notrailers;
    print "is noarp\n"       if $if->is_noarp;
}