sub change_pass {
    my $user = shift;
    print "\n\tEnter a NEW password for $username: ";
    ReadMode('noecho');
    $new_password = ReadLine(0);
    chomp $new_password;
    print "\n\tConfirm new password for $username: ";
    $confirm_password = ReadLine(0);
    chomp $confirm_password;
    ReadMode(0);
    print "\n";
    unless ( $new_password =~ /\b\Q$confirm_password\E\b/) { 
        &usage("\nPasswords entered do NOT match!\n"); 
    }
    my $set_password = '/usr/bin/ssh ' . $master_host . " \"echo \Q$new_password\E | /usr/bin/passwd --stdin \Q$username\E\""; 
    system($set_password);
    print "\n";
}