am_throttle.pl

#!/usr/bin/perl
########################
use File::Basename;    # used for dirname
use Cwd qw(chdir);     # this also sets $ENV{PWD} on chdir
chdir dirname $0;      # so relative paths in config keep working when called with absolute paths
########################

use lib '.', '/data/config', '/data/config/am', '/data/psi/Libs';
use ModernStyle;

use AM::Throttle qw(am_throttle);
use Config::Throttle qw(throttle_config);

$|++; # autoflush (logging breaks otherwise)
#########################

my $throttle = am_throttle( throttle_config() );
exit $throttle->();