source: LATMOS-Accounts/bin/la-query @ 61

#!/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,
    'o|object=s' => \my $otype,
    'help'       => sub { pod2usage(0) },
) or pod2usage();

$otype ||= 'user';

my $LA = LATMOS::Accounts->new($config);
my $labase = $base ? $LA->base($base) : $LA->default_base;

if (my $ouid = shift(@ARGV)) {
    my $obj = $labase->get_object($otype, $ouid);
    foreach ($labase->list_canonicals_fields($otype)) {
        my $val = $obj->get_c_field($_);
        printf(
            "  %s: %s\n",
            $_,
            ref $val ? join(', ', @$val) : ($val || 'N/A')
        );
    } 
} else {
    foreach ($labase->list_objects($otype)) {
        print "$_\n";
    }
}