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