my @labels = split(/\./, $hostname) ;
  my $n = scalar(@labels) ;
  my $question = pack("(C/a*)$n C n2", @labels, 0, 1, 1) ;