Select Code to Download

use IO::Interface::Simple ();
for my $if (IO::Interface::Simple->interfaces) {
    next if !$if->is_running || $if->is_loopback || !defined($if->addr
+ess);
    print $if, "\t", $if->address, "\n";
}