$ diff orig.pl script.pl
33a34
> use MCE::Shared;
51c52
< my %t;
---
> tie my %t, 'MCE::Shared';
217c218
<     print Dumper( \%t );
---
>     print Dumper( tied(%t)->export( { unbless => 1 } ) );