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

if( fork )
{
  my $ns = tie( my %share, 'Win32::MMF::Shareable', 'share' ) || die;
  sleep 1;
  $share{parent} = 1;
  # select undef, undef, undef, 2.0;   <----- dummy line
}
else
{
  my $ns = tie( my %share, 'Win32::MMF::Shareable', 'share' ) || die;
  $share{child} = 1;
}

##</code><code>##

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