$htpasswd = "/usr/local/apache/bin/htpasswd $htpasswdfile $formuser";
 ($htpass = Expect->spawn("$htpasswd")) || die "could not spawn program, $!";