use Expect;

my $proc= new Expect();
$proc->spawn("./consumer.pl");

$proc->send("hello there\n");
$proc->send("\cD");
$proc->send("this is\n");
$proc->send("\cD");

$proc->expect(1,
  [
    /end1/ => sub
    {
      exp_continue;
    }
  ],
  [
    /end2/ => sub
    {
      exp_continue;
    }
  ]
);