#!/usr/bin/perl

use IO::Prompt;

# You can constrain input to be numeric, or even integral...

my $how_many = prompt -number => 'How many? ';
print "You asked for $how_many\n";

$how_many = prompt -i => 'How many? ';
print "You asked for $how_many\n";