#!C:/Perl/bin/perl -w
use strict;
use Win32::MMF;
use Win32::MMF::Shareable;

if( fork )
{
  my $ns = tie( my $share, 'Win32::MMF::Shareable', 'share' ) || die;
  sleep(1);
  $share = 'PARENT';
}
else
{
  my $ns = tie( my $share, 'Win32::MMF::Shareable', 'share' ) || die;
  $share = 'CHILD';
}