in reply to Interactive menu

I think you can try Expect

In Section Seekers of Perl Wisdom