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