#!/usr/bin/perl -w
use strict;

while ( <STDIN> ) {
    chomp();

    if ( /^\d+$/ ) {
        print "You entered: $_\n";
    }
    else {
        print "Not a number!\n";
    }
}