here's the basics:

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";
[download]

The code executes, but nothing happens. The pipetest executable executes, but doesn't recieve any data, nor does it print any. Any ideas?