my $cache_ttl = 60;
my $cachefile = '/tmp/mtapi.'.$router.'.cache';
my %bgp_peer;
my $cached = 0;
my $modified = (stat($cachefile))[9];
open our $lockfile, '<', $0 || die $!;
if (defined $modified) {
  if (($modified >= (time-$cache_ttl)) || (!flock $lockfile, LOCK_EX | LOCK_NB)) {
    if (%bgp_peer = %{lock_retrieve($cachefile)}) { $cached = 1 };
  }
}
if ($cached == 0) {
  if (!flock $lockfile, LOCK_EX | LOCK_NB) { print STDERR "Another process is already using MikroTik API.\n"; exit 6 };
  $api->connect();
  $api->login();
  %bgp_peer = $api->get_by_key('/routing/bgp/peer/print', 'name');
  $api->logout();
  lock_nstore \%bgp_peer, $cachefile;
  chmod 0660, $cachefile;
  flock $lockfile, LOCK_UN;
}