open(INPUT2, "$ARGV[0]" . "_RMS") or die $!;
open(DEBUG2,">debug2") or die $!;
  while(defined ($line = <INPUT2>)){
    print DEBUG2 $line;
  }
close(INPUT2);
close(DEBUG2);