NAME Prompt::Timeout - prompt() with auto-selecting default value in case of inactivity SYNOPSIS use Prompt::Timeout; my $res = prompt ( $question, $default, $timeout ); DESCRIPTION This module provides only one function, prompt(), and it's exported by default. prompt my $res = prompt ( $question, $default, $timeout ); Prints a $question and waits for the input. If no keys are pressed during $timeout seconds, $default is assumed. When pressing just Enter key, $default is assumed. If prompt() detects that it is not running interactively, $default will be used without prompting too. If you want to disable inactivity timer if any key is pressed during prompt(), you can invoke it with another optional parameter: my $res = prompt ( $question, $default, $timeout, 1 ); Once a key is pressed, inactivity timer is disabled. When $timeout value is omitted, it assumes 60 seconds. AUTHOR Serguei Trouchelle FindBin::Real uses partial code from ExtUtils::MakeMaker module. COPYRIGHT Copyright (c) 2008, 2009 Serguei Trouchelle. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.