Select Code to Download

$sniffer->run(); # uses the "best" default device

     my $err = '';
     my $dev = Net::Pcap::pcap_lookupdev(\$err);  # find a device
...
   print "$stats{ps_drop} pkts drpd, $stats{ps_recv} pkts rcvd.\n";
     $sniffer->handle_eth_packet($pkt);
     }