I meant

open (FIFO, "| $program");