$ID= 1; #2 octets
$flags = 0; #(For Request value is 0)#2 octets
$QDCOUNT=1; #2 octets
$ANCOUNT=0;#2 octets
$NSCOUNT=0;#2 octets
$ARCOUNT=0;#2 octets
$QNAME= "www.google.com";#16 octets
$QTYPE=23; #(For NAPTR)#2 octets
$QCLASS=1; #(For IN)#2 octet


my $DNS_Request= "$ID$flags$QDCOUNT$ANCOUNT$NSCOUNT$ARCOUNT$QNAME$QTYPE$QCLASS";


$MySocket->send($DNS_Request);