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;

##</code><code>##

tuser@desktop:~/Pcap$ sudo perl testNetPcap-2.pl
usbmon1 : USB bus number 1
usbmon2 : USB bus number 2
eth3 : No description available
any : Pseudo-device that captures on all interfaces
lo : Loopback device
tuser@desktop:~/Pcap$

##</code><code>##

my $result = Net::PcapUtils::loop(\&process_pkt);

if (!$result eq "") {
    print("$result\n");
}

##</code><code>##


my $eth;

my @devs  = Net::Pcap::pcap_findalldevs(\%devinfo, \$err);
for my $dev (@devs) {
  print "$dev : $devinfo{$dev}\n";
  if ( ! $eth && $dev=~/eth/){ $eth=$dev;}
}
print " eth=<$eth>\n";