read-password.pl

#!/usr/bin/perl

# Usage: read-password.pl --user hoge -p

use strict;
use warnings;
use Term::ReadPassword;
use Data::Dumper;
use Getopt::Long;

my %options;
my $ret = GetOptions( \%options, 'user|u=s', 'password|p', );

if ( $options{password} ) {
    RETRY: {
        my $password = read_password('New password: ');
        my $confirm  = read_password('Re-type new password: ');
        if ( $password eq $confirm ) {
            $options{password} = $password;
        }
        else {
            goto RETRY;
        }
    }
}

print Dumper(\%options);