my $MM = Win32::MMF->new("My (optional) Unique Namespace name"); # If unspecified, a new GUID would be used for namespace # Fork the child here -- Parent & Child share $MM. # In Parent ---- my $view = $MM->CreateView("Optional Unique Name"); my $err=$view->lock([$TIMEOUT]); # Optional, Prevent others from Writing $view->write($Some_Scalar_Or_Ref,[$lock,$TIMEOUT]); $view->unlock(); $view->close(); $MM->close(); #--- In Child -- my $view = $MM->GetView("Optional Unique Name", \&$Optional_CallBack_Ref); # Line above blocks if callback is not specified my $Data = $view->read(); $view->close(); $MM->close();