Help for this page
#! /usr/bin/perl open OUT,"| ./progX" or die ; print OUT "X\n\n1\n2\n\n\n" ; close OUT ;
open OUT,"| ./progX > output" or die ;