This is a Perl rewrite of the (D)Dos Deflate script found at http://deflate.medialayer.com/