print while (<$foo>);  # Read in lines and print them