$name = shift || die "Usage: $0 filter\n";
my $filter = "(|(sn=$name*)(givenName=$name*))";