I threw together an htpassword updating util... it uses expect to run htpasswd.

The problem is, everytime a new instance of expect is created:

 $htpasswd = "/usr/local/apache/bin/htpasswd $htpasswdfile $formuser";
 ($htpass = Expect->spawn("$htpasswd")) || die "could not spawn progra
+m, $!";
[download]

All the text that has been printed so far get's re-printed.
so, the following code:
------------------------------

use CGI qw(:standard);
use Expect;
print "Content-type: text/html\n\n";
print "test1\n";
 $htpasswd = "/usr/local/apache/bin/htpasswd $htpasswdfile $formuser";
 ($htpass = Expect->spawn("$htpasswd")) || die "could not spawn progra
+m, $!";
print "test2\n";
exit;
[download]

-------------------------
The end user get's back:
-------------------------

test1
Content-type: text/html

test1
test2
[download]

-------------------------

Any idea why, or how to get around this (besides putting all the prints after initiating expect, which is my current solution)

Thanks!