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";