in reply to IO::Prompter return object

Alternatively, add the -v option:

perl -MIO::Prompter -e '$ret = prompt -v, -num,"number:" ; prompt -num,-def=>$ret, "another:"'