die &usage if $opt_c && ! $opt_h;
my $user = shift or die &usage;
if ( $opt_h ) {
my @args = ( 'htpasswd' );
die &usage if $opt_c && ! $opt_h;
my $user = shift or die &usage;
if ( $opt_h ) {
my @args = ( 'htpasswd' );
push @args, '-c' if $opt_c;
push @args, $opt_h, $user;
push @args, '-c' if $opt_c;
push @args, $opt_h, $user;