# LOCATION OF PASSWORD FILE
$PASSFILE="/usr/home/web_directory/protected_dir/.htpasswd";

open(WRT,">$PASSFILE");

foreach $id (keys %user_hash){
$pass2 = crypt($user_hash{$id}, "AB");
print WRT "$id:$pass2\n";
}

close(WRT);