Language Basics Perl

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