while (my $line = <foo>) {
    print $line, "\n";
  }