my $htp = new Apache::Htpasswd;("/home/httpd/conf/.htptestaccess")
my $User = 1;
while ($User <= 100000) {
    my $pass = new String::Random;
    my $PassWord = $pass->randpattern("Cccccnn");
    $htp->htpasswd("User_" . $User, $PassWord);
    $User ++;
}