Reading Line-by-Line

• STDIN in scalar context returns undef when there aren't any lines left

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