Help for this page

Select Code to Download

Select or download this

my $hostname = $ARGV[0];

my @labels;
...
my $n = scalar(@labels);

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

Select or download this

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