my $local = <PIPE>;
    { lock( $shared ); $shared = $local; }