user1:pwd1
user2:pwd2
user3:pwd3
user4:pwd4
user5:pwd5
user6:pwd6
####
user1:pwd1
user2:pwd2
user3:newpwd3:user4:pwd4
user5:pwd5
user6:pwd6
##
##
my $g = shift;
my $UserName = shift;
print h1 "new $g->{NewPassWord}, old $g->{OldPassWord}";
# these details are shown to be correct
my $pwd = new Apache::Htpasswd("/path/to/my/passwordfile");
#$pwd->htpasswd($UserName, $g->{NewPassWord}, $g->{OldPassWord});
# either with the line above or the line below it still goes wrong:
$pwd->htpasswd($UserName, $g->{NewPassWord}, 1);