open (INFILE, "input.txt")
  or die "Can't open input.txt: $!\n";
open (OUTFILE, ">output.txt")
  or die "Can't open output.txt: $!\n";

while (<INFILE>) {
  s/foo/bar/g;
  print OUTFILE;
}