Select Code to Download

$ diff ex1.pl ex2.pl 
2a3
...
< my $string = "First value";
---
> tie my $string, "MCE::Shared", "First value";

use strict;
use warnings;
...
I am the subroutine and my PID is 22727
The PID of the child upon whom I waited was 22727
The value of $string is Second value

use strict;
use warnings;
...
I am the subroutine and my PID is 22980
The PID of the child upon whom I waited was 22980
The value of $string is Second value

use strict;
use warnings;
...
I am the subroutine and my PID is 23091
The PID of the child upon whom I waited was 23091
The value of $string is Second value