Select Code to Download

  aeinprst: 346
  aeilprst: 344
  adeiprst: 332
  aeimprst: 328

  use Algorithm::Combinatorics qw(:all);
  my $iter = combinations_with_repetition(\@{['a'..'z']}, 8);

#! /usr/bin/perl
use threads;
...
  printf "! progress %d/%d (% 3.1f%%)\n@{['-'x40]}\n",
                  $TDONE, $TOTAL, 100.0*$TDONE/$TOTAL;
}