#! /usr/bin/perl

open OUT,"| ./progX" or die ;
print OUT "X\n\n1\n2\n\n\n" ;
close OUT ;

##</code><code>##

open OUT,"| ./progX > output" or die ;