in reply to force user to only enter numbers

Assuming for you, a number is a sequence of ASCII digits (untested):
my $num; { print "Please type a number: "; chomp($num = <>); redo unless $num =~ /^[0-9]+$/; }