if (open(PROGRAM, "-|"))
        {
                # Parent process.  Read output from child.
                my @output = <PROGRAM>;
        }
        else
        {
                # Child process.  exec() program
                exec("/path/to/program", $arg1, $arg2, $etc);
        }