open(SCRIPT, "<", "script.txt") or die "Can't open script.txt, error $!";
Parallel::Fork::start_job("bc", stdin_handle => *SCRIPT,
                          stdout_capture=>1, stderr_capture=>1);