my $pcap_device='eth0';
my $pcap = Net::Pcap::Easy-> new(
   dev              => $pcap_device,
   filter           => 'port 6653',
   packets_per_loop => 1,
   timeout_in_ms    => 1,
   promiscuous      => 0,

   tcp_callback => sub {
      $tcp_total++;
      print "tcp seen\n";
   },
   udp_callback => sub {
      $udp_total++;
      print "udp seen\n";
   },
);


while ( 1 ) {
   $pcap->loop;
   print "oink\n";
}