#!/usr/bin/perl 
use IO::Socket; 
	&dnsQueryPacket($ARGV[0],$ARGV[1]); 
 
sub dnsQueryPacket{ 
my $hostname = $_[0]; 
# my @labels = split(/\./, $hostname) ; my $n = scalar(@labels) ; my $question = pack("(C/a*)$n C n2", @labels, 0, 1, 1) ;  
my @labels; 
my $nlabels = 0; 
 
for (split /\./, $hostname) { 
    push @labels, length, $_; 
    $nlabels++; 
} 
my $n = scalar(@labels); 
 
my $question = pack("(C/a*)$n C n2", @labels, 0, 1, 1) ; 
print '$question: ', join("", unpack("(C/a*)$n C n2", $question) ), "\n"; 
#Hexadecimal format of the Query Part! 
print '$question: ', join(" ", unpack("(H2)*", $question) ), "\n"; 
} 
}