Select Code to Download

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

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