source: LATMOS-Accounts/bin/la-sync @ 50

#!/usr/bin/perl

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

=head1 NAME

    la-sync - Tools to synchronize base

=head1 SYNOPSIS

Show configured bases:

    la-sync [options]

=cut

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

=head1 OPTIONS

=item -c|--config configfile

Use this configuration file instead default

=item --from basename

Specify souce base to use

=item --to basename

Specify destination base to use, this option can be used
severals times

=cut

my $LA = LATMOS::Accounts->new($config);

my $sync = $LA->create_synchro($from, [ @to ]);
$sync->load_dest and return;
$sync->process or warn "Sync has failed\n";