use strict;
use warnings;

my($a) = <STDIN>;
chomp($a);
if ($a !~ /^\d+$/) {
    print "Sorry - you didn't give me a number.\n";
    exit 1;
} else {
    print "Yay!  That's a number!\n";
}