#!/usr/sbin/perl

while(1)  {
print "Enter User Name (leave blank hit RTN to exit) ";
chop($name = <STDIN>); 
if($name eq ""){exit;}

system "/usr/sbin/htpasswd .htpasswd $name";

  }