#! /usr/bin/perl

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