open OUT, ">output.txt" or die "Can't open file\n";
  print OUT foo
  close OUT

##</code><code>##

  open IN, "output" or die "Can't open file\n";
  while(<IN>) { 
    # do something with $_
  }
  close IN;