Help for this page

Select Code to Download

Select or download this

#!C:/Perl/bin/perl -w
use strict;
...
  my $ns = tie( my %share, 'Win32::MMF::Shareable', 'share' ) || die;
  $share{child} = 1;
}

Select or download this

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