use Net::Pcap;

my $err = '';# storsge string fille by sub error
my %devinfo;

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