Perl Testing by Ian Langworth and chromatic has a section on Testing Interactive Programs (p169). There is an example which uses Test::Expect to handle user interaction.
--
When you earnestly believe you can compensate for a lack of skill by doubling your efforts, there's no end to what you can't do. [1]