Use a regex:

if( $input =~ /^(\d+)$/ )
{
    $a = $1;
}
else
{
    print "Please enter a number\n"
}
[download]

or something like that.