source: LATMOS-Accounts/bin/la-passwd @ 207

#!/usr/bin/perl

use strict;
use warnings;
use LATMOS::Accounts;
use Getopt::Long;
use Pod::Usage;

GetOptions(
    'c|config=s' => \my $config,
    'b|base=s'   => \my $base,
    'help'       => sub { pod2usage(0) },
) or pod2usage();

my $otype = 'user';

my $LA = LATMOS::Accounts->new($config);
my $labase = $base ? $LA->base($base) : $LA->default_base;
$labase && $labase->load or die "Cannot load base";

my $obj = $labase->get_object($otype, $ARGV[0]) or do {
    die "Object $otype $ARGV[0] not found\n";
};
if ($obj->set_password($ARGV[1])) {
    print "Password succefully changed\n";
    exit 0;
} else {
    warn "Error when trying to change password\n";
    exit 1;
}