#!/usr/local/bin/perl -w

use Expect;
use strict;

# Debugging stuff.
$Expect::Log_Stdout=1;
$Expect::Debug=1;

my $exp = Expect->spawn('curses-prog')
  or die "Cannot spawn curses-prog: $!\n";
if ($exp->expect(10, 'Menu item 1')) { print $exp "\0402" };