my $fileold = "ArchLDAP";
my $filenew = "LDAP";
my $infileold = $ARGV[0];
   if ($infileold eq "") {
      $infileold = $fileold;
      }
my $infilenew = $ARGV[1];
   if ($infilenew eq "") {
      $infilenew = $filenew;
      }