sub generate_apache_bcrypt_hash {
my($plaintext) = @_;
 
  my $bcrypt_hash = '';
 
  try {
    $bcrypt_hash = capturex("/bin/htpasswd","-nbB","''", $plaintext);
  } catch {
    print STDERR "generate_apache_bcrypt_hash = '$_'\n" if $DEBUG;
  };
 
  # remove:
  # - extra 3 chars at the front
  # - 1 trailing spaces
  # - line break
  $bcrypt_hash = substr $bcrypt_hash,3;
  chomp($bcrypt_hash);
  chop($bcrypt_hash);
 
  return $bcrypt_hash
}