use strict;
use Win32::MMF::Shareable;
use Data::Dumper;

my $ns = tie my $ref, 'Win32::MMF::Shareable', '$ref';
tie my $alias, 'Win32::MMF::Shareable', '$ref';

$ref = { a => 1, b => 2, c => 3 };
$alias->{d} = 4;
print Dumper($ref);

$ref = [ qw( a b c d e f g h ) ];
print Dumper($alias);

# $ns->debug();