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