You might want to check out Term::ReadLine::Gnu. It allows access to the GNU Readline Library, which allows you to specify a timeout.

stephen