my($read, $write, $pid); $pid = open2($read, $write, 'pipetest'); die "Pipe open failed: $!\n" if ($pid =~ /^open2/); print $write length($j_random_string); print $write $j_random_string; read $read $foo, length($j_random_string); print $foo, "\n";