...
print "enter a number: \n";
my $num = <STDIN>;
if ($num !~/^[+-]?\d+$/){
print "this is not a number\n please type a number\n";
}
else {print "your number is $num\n"}
...