#### while (<$fh>) { # Read line by line; generally preferred way (especially for large files) print "The line is: $_"; } foreach (<$fh>) { # Read all lines at once print "The line is: $_"; }