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

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

my $str = $share->fetch;

print $str, "\n";