Adding PerlInputTimeout, this scripy demonstrates how to ask for input from user with atimeout.