$self->{'shared_data'} = $p1;

    my $p2 = $self->{'shared_data'};
    mylog( "P2: ($p2)" . Dumper( $p2 ));