use IO::Prompt;

my $answer = prompt 'Please enter XXX: ';