Making decisions based on packet parameters

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

        if ($ip->{src_ip} eq "207.8.186.2") {
            print "Accepted packet from ", $ip->{src_ip}, "\n";
            $ipq->set_verdict($msg->packet_id, NF_ACCEPT);
        } else {
            print "Dropped packet from ", $ip->{src_ip}, "\n";
            $ipq->set_verdict($msg->packet_id, NF_DROP);
        }   
    }