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