Decoding packets with NetPacket::IP

    use IPTables::IPv4::IPQueue qw(:constants);
    use NetPacket::IP qw(:ALL);

    my $ipq = new IPTables::IPv4::IPQueue
        (copy_mode => IPQ_COPY_PACKET, copy_range => 1500);

    while (1) {
        my $msg = $ipq->get_message;
        my $ip = NetPacket::IP->decode($msg->payload);

        print "Accepted packet from ", $ip->{src_ip}, "\n";
        $ipq->set_verdict($msg->packet_id, NF_ACCEPT);

    }