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

##</code><code>##

my $scheme_pid = open (WORKER, "-|", $^X, '-e', '$|=1; for (1..100) { print "%d\n", $_*$t; sleep(2) }')