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