my $scheme_pid = open (WORKER, "worker_program < $input |")