use strict;
use Tk;
use Win32::MMF::Shareable;

tie my $wait, 'Win32::MMF::Shareable', 'wait' or die;
print "Remote process $$ increment \$wait...\n";
$wait++;