use IO::Prompter [qw/-e* -stdio/];
-die "Usage: aap-passwd [rootdir] username\n" if @ARGV == 0 || @ARGV > 1;
-($Apache2::Authen::Passphrase::rootdir) = (shift =~ /(.*)/s) if $#ARGV == 1;
+die "Usage: aap-passwd [rootdir] username\n" if @ARGV == 0 || @ARGV > 2;
+($Apache2::Authen::Passphrase::rootdir) = (shift =~ /(.*)/s) if @ARGV == 2;
my $username = shift;
die "Invalid username\n" unless $username =~ USER_REGEX;