my $hostname = $ARGV[0];

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) ;


##</code><code>##

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