open( STDOUT, "|-" ) or die ("Can't open standard output: $!\n");

##</code><code>##

my $pid = open( CHILD, "|-" );
unless (defined $pid) {
  die ("Can't open standard output: $!\n");
}
if ($pid) {
   # in parent process (will write to CHILD)
}
else ($pid) {
   # in child process (will read from STDIN)
}

##</code><code>##

my $output = `program -text -brief clone_error <<EOF
$form
r
clone_from=$clone_from
r
EOF`;