sub EditFile{
  my $file = shift;
  open INFILE,$file;
  my $text = do{local $/;<INFILE>};
  close INFILE;
  # edit text
  open OUTFILE,">$file";
  print OUTFILE $text;
  close OUTFILE;  
}