Statement Perl

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