in reply to IO::Prompter return object
perl -MIO::Prompter -e '$ret = prompt -v, -num,"number:" ; prompt -num,-def=>$ret, "another:"'