package MyClass {
    use Moose;
    has foo => ( is => 'rw', default => 'bar' ); 
};

package main {
    use strict; use warnings; use feature 'say';
    use MCE::Shared;

    my $obj = MCE::Shared->share({ module => 'MyClass' });

    say 'Before forking: ' . $obj->foo;

    my $pid = fork;

    if ( $pid == 0 ) {
        $obj->foo('baz');
        exit;
    } else {
        waitpid $pid, 0;
    }

    say 'After forking: ' . $obj->foo;
};

##</code><code>##

$ perl 1210687.pl

Before forking: bar
After forking: baz