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

# &subname can have unpleasant side effects
a();

sub a {
    my $a;
    while (lc($a) ne 'q') {
        chomp($a = <STDIN>);
        last unless $a;

        if ($a =~ /\D/) {
            print "Not an integer!\n";
        } else {
            print "You typed: ->$a<-\n";
        }
    }
}