Select Code to Download

user1:pwd1
user2:pwd2
...
user4:pwd4
user5:pwd5
user6:pwd6

user1:pwd1
user2:pwd2
user3:newpwd3:user4:pwd4
user5:pwd5
user6:pwd6

my $g = shift;
my $UserName = shift;
...
#$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);