rename $file, $tempfile;
  open (OUT, ">$file") or die "$!\n";
  print OUT "stuff\n";
  open (IN, $tempfile) or die "$!\n";
  while (<IN>) {
     print OUT $_; 
  }
  close IN;
  close OUT;