Select Code to Download

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