sub EditFile{
  my $file = shift;
  open INFILE,$file;
  binmode INFILE;
  my ($buffer, $text);
  while(read(INFILE, $text, 4096, length($text))){}

  #Alternative Read method
  #while(read(INFILE, $buffer, 4096)){
  #  $text .= $buffer;
  #}
  ##

  close INFILE;
  # edit text
  open OUTFILE,">$file";
  binmode OUTFILE;
  print OUTFILE $text;
  close OUTFILE;  
}