# untested code, reciting from memory
  my $e = Expect->spawn( '/usr/local/bin/foo', '-f', '/tmp/bar' );
  print $e "zug\n";
  if( $e->expect(10, 'zwang')) {
    print "got what I expected\n";
  }
  else {
    print "hmm...";
  }