A Shortcut

• This loop is so common that Perl has a shortcut for it:

while ( <STDIN> ) {
    print "The line is -> $_";
}

• Won't work if you put anything else into that line!
• Not the same as foreach (<STDIN>)