#!/usr/bin/env perl

use Net::PcapUtils; #packet cap module for WinPcap
use NetPacket::Ethernet;
use NetPacket::IP;
use strict;
use warnings;


Net::PcapUtils::loop(\&process_pkt,
SNAPLEN => 65536, #Size of packet. Can also use 0
PROMISC => 1, ); #Look at ALL packets
sub process_pkt #Packet processing routine.
{
print(" hello    Got a packet!   ");
  my ($user_data,$hdr,$pkt)=@_;

my $eth=NetPacket::Ethernet->decode($pkt);
 
    my $ip=NetPacket::IP->decode($eth->{data});
    print("   $ip->{src_ip}  $ip->{dest_ip} \n");
}