Testing the previous example using bogus data:
[root@quint ~]# echo AAAAAAAAAAAAAAAAAAAAAAA \ | nc -v -v -u -p 53 ellesmere.netisland.net 4242
The output:
Blocking invalid DNS packet
So far, so good
Another test using bogus data:
[root@quint ~]# echo FOOOOOOOOOOOOOOOOOOOOOO \ | nc -v -v -u -p 53 ellesmere.netisland.net 4242
Can't use an undefined value as an ARRAY reference at /usr/share/perl5/Net/DNS/Packet.pm line 332.
Net::DNS::Packet apparently doesn't do nearly as much error checking as we'd like