#! perl -slw
use strict;

my $progname = 'junk33';

my $pid = open CMD, '|-', $progname or die $!;

print CMD 'myInfile';
print CMD 'N';
print CMD 'myOutfile';

close CMD;

waitpid $pid, 0;

print "$progname ended: status: ", $? >>8;