use IO::Prompt;

prompt 'What say you? ';
print "user say '$_'\n";