in reply to Perl Expect Help

Check out 

$exp->interact(\*STDIN, "\cW");

[download]

In Section Seekers of Perl Wisdom