my $size = $share->size;

##</code><code>##

use strict;
use warnings;

use IPC::ShareLite;

use Storable qw( freeze thaw );
my $share;

eval {
    $share = IPC::ShareLite->new(
        -key     => 4812,
        -create  => 'yes',
        -destroy => 'no',
        -mode    => 0600,
    );
};

if ($@) {
    warn "Woops: $@";
    exit;
}

# Let's use some memory
my @array = 0 .. 1500000;
$share->store( freeze( \@array ) );

my $size = $share->size;

print "Size: $size\n";

my $num_segments = $share->num_segments;

print "Segments: $num_segments\n";