#!/usr/bin/env perl
use warnings;
use 5.014;
use autodie;
use IPC::ShareLite;

my $share = IPC::ShareLite->new(
    -key => 1971,
    -create => 'yes',
    -destroy => 'no'
) or die $!;

$share->store("This is stored in shared memory");