Select Code to Download

use strict;
use warnings;
...
          $cgi->start_html(), "\n",
          $cgi->end_html(), "\n";
}

# turn off built-in auto-locking
my $ns = Win32::MMF->new ( -namespace => "My.data1",
...
    wait($write_semaphore);
    $ns->write($xml);
    release($read_semaphore);