open (PASSWORD, ">>/home/alex/public_html/.htpasswd") || die "Could not open password file";
print PASSWORD "$_[0]:" . crypt($_[1], $_[0]) . "\n";
close PASSWORD;