Select Code to Download

  my $n = shift @ARGV;
  my $try = chr($n);
...
      (chr($limit) x int(1 + $count / $limit)) . ($tail ? chr($tail) :
+ '') 
    }xe ? $current : undef;
  }