#!/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;

##</code><code>##

./filtertest.pl 
Good filter:
(objectGUID= ^\b7\c0\af\96\e2\bdN\b5\c3=V\0a\0b1X)
Bad filter:
Can't call method "print" on an undefined value at ./filtertest.pl line 17.