Select Code to Download

Select or download this
```
    $shared .= <PIPE>;
```

    my $local = <PIPE>;
    $shared .= $local;

Select or download this

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

Select or download this

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

Select or download this

# XXX. The key and value are related.
my $string = $shared_key . ' => ' . $shared_value;

Select or download this

C:\test>perl -MO=Terse
my $string = $shared_key . ' => ' . $shared_value;
...
        OP (0x191dad0) padsv [1]
    ## critical section exited here.
- syntax OK

Select or download this

{
    lock( $shared )
    $local = $shared;
    $shared = somefunction( $local );
}

Select or download this
```
$shared = somefunction( $shared );
```

Select or download this

C:\test>perl -MO=Terse
sub somefunction{ $_[0] + 1 }
...
            PADOP (0x191d964) gvsv  GV (0x22507c) *shared
    ## ExitCriticalSection here.
- syntax OK