Select Code to Download

  open (IN, $file) or die "$!\n";
  my @ary = <IN>;
...
  print OUT "stuff\n";
  print OUT @ary;
  close OUT;

  rename $file, $tempfile;
  open (OUT, ">$file") or die "$!\n";
...
  }
  close IN;
  close OUT;