ok 4 - expect_run
Expect::Simple: couldn't find prompt after send
 at /home/hgreen/test/Test-Expect-0.29/lib/Test/Expect.pm line 72
# Looks like your test died just after 4.

##</code><code>##

#!/bin/ksh
read -r var1?"Enter foo "
echo $var1

##</code><code>##

use Test::More tests => 5; 
use Test::Cmd;
use Test::Harness;
use Test::Expect;
use Expect::Simple;
use Expect;

##</code><code>##

expect_run(

    command => "/bbcm/devtools/tools/autoplink/tst",
    prompt  => 'Enter foo ',
    quit    => 'quit',
  );
expect('foo', 'foo', "expect");
expect_send('foo', "expect_send1");