while (<$foo>)      # Read in a line to $_
{
      print;        # Print $_
}