Hi iRemix94,

I've successfully been using IO::Interface::Simple. A quick example:

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";
}
[download]

I haven't had to determine whether an interface is virtual or not, but at least these two StackOverflow answers indicate that - at least on Linux - you could determine that by looking at the files in /sys/class/net/.

Hope this helps,
-- Hauke D