#!/usr/bin/perl

use strict;

use Net::LDAP::Filter;
use MIME::Base64 qw(encode_base64 decode_base64);

my $goodFilter = '(objectGUID = '.decode_base64('XrfAr5bivU61wz1WCgsxWA==').')';
my $badFilter = '(objectGUID = '.decode_base64('6CncwjzJ/Umi4iIdB88efw==').')';

print "Good filter:\n";
my $f1 = Net::LDAP::Filter->new($goodFilter);
$f1->print;

print "Bad filter:\n";
my $f2 = Net::LDAP::Filter->new($badFilter);
$f2->print;