Statement Perl

while (<>) {
    print "Too small!\n" unless $_ > 100;
}