use Net::Pcap;

@devs = Net::Pcap::pcap_findalldevs(\%devinfo, \$err);
for my $dev (@devs) {
    print "$dev : $devinfo{$dev}\n"
}