#split apart flags
	my $qr=$flags & 0x8000;
	my $opcode=($flags & 0x001e) >> 11;
	my $aa=$flags & 0x0400);
	my $tc=$flags & 0x0200;
	my $rd=$flags & 0x0100;
	my $ra=$flags & 0x0080;
	my $rcode=$flags & 0x000f;

##</code><code>##

ID: 2
QR: 1
OPCODE: 0
AA: 0
TC: 0
RD: 256
RA: 128
RCODE 0
QDCOUNT: 1
ANCOUNT: 6
NSCOUNT: 0
ARCOUNT: 0

##</code><code>##

#split apart flags
	my $qr=! ! ($flags & 0x8000);
	my $opcode=($flags & 0x001e) >> 11;
	my $aa=! ! ($flags & 0x0400);
	my $tc=! ! ($flags & 0x0200);
	my $rd=! ! ($flags & 0x0100);
	my $ra=! ! ($flags & 0x0080);
	my $rcode=$flags & 0x000f;

##</code><code>##

ID: 2
QR: 1
OPCODE: 0
AA: 
TC: 
RD: 1
RA: 1
RCODE 0
QDCOUNT: 1
ANCOUNT: 6
NSCOUNT: 0
ARCOUNT: 0