#! /usr/bin/perl

use strict;
use Win32::MMF::Shareable;

$|++;

tie( my $share, 'Win32::MMF::Shareable', 'share' ) || die;

unless( fork ) { exit 0 }
sleep 1;  # make sure child exits before continuing

print "----before\n";

# set/get crashes
$share = 'bbb';
my $temp = $share;

print "----after\n";

__END__

----before

[crash]