IPC using shared memory

shm_counter.pl

#!/usr/bin/perl -w
use strict;
use warnings;
use IPC::Shareable;
my $glue = 'access_counter';
my %options = (
  create => 'yes',
  exclusive => 0,
  mode => 0644,
  destroy => 0,
  );

my $counter;
eval {
  tie my $shm_counter, 'IPC::Shareable', $glue, { %options };
  (tied $shm_counter)->shlock;
  $counter = ++$shm_counter;
  (tied $shm_counter)->shunlock;
  #(tied $shm_counter)->remove;
};
print "$counter\n";
exit;