in reply to prompt for data
Try with Perl FAQ perldoc -q keyboard; if you need something more powerful, use Term::Readline.
Ciao, Valerio