Unnamed

    open(Q,"< $QUERYLOG") or die "$!";
    while (<Q>) {
        chomp;
        if (/client \d+\.\d+.\d+.\d+\#\d+: query\: \S+ (\w+) (\w+)/) {
            if ($1 eq 'IN' and $2 !~ /^TYPE/) {
                $IN{$2}++;
            }
        }
    }
    close(Q);