use IO::Prompter;
my $num = prompt("How much is A:", -num, -return=>" ");
print "A=$num\n";