$hostname=$ARGV[0];
$counter=0;
		##formate of each label.
		for (split(/\./,$hostname)){
			$label[$counter++] = length;
			$label[$counter++] = $_;
			$lformat .= "C a* ";
		}

print "\n@label\n";

	$question = pack($lformat."C n2",@labels,0,1,1);