quick doh query dumper

dohlog.pl

#!/usr/bin/env perl
# pipe me a stray cat
use strict;
use warnings;
use Net::DNS::Packet;
use MIME::Base64 qw(decode_base64);
while (<>) {
       chomp;
       my $s = $_;$s =~ s/(^.*\?.*=| HTTP.*)//;
       my $q = decode_base64($s);
       print "$_\n".Net::DNS::Packet->new(\$q)->print;
}