...
#use Win32::MMF::Shareable;
use ScalarTieTest;

print "Process starting...\n";

#my $ns = tie my $wait, 'Win32::MMF::Shareable', 'wait' or die;
my $ns = tie my $wait, 'ScalarTieTest', 'wait' or die;
...