my $infileold = (@ARGV) ? shift @ARGV : "ArchLDAP";
my $infilenew = (@ARGV) ? shift @ARGV : "LDAP";