Awesome

protokill

Here's a Perl script that can either be used as a protocol fuzzer, or a DoS tool