diff --git a/servers/slapd/back-perl/SampleLDAP.pm b/servers/slapd/back-perl/SampleLDAP.pm
index aab2bcccda..0fc4f865c3 100644
--- a/servers/slapd/back-perl/SampleLDAP.pm
+++ b/servers/slapd/back-perl/SampleLDAP.pm
@@ -49,7 +49,7 @@ sub search {
     my ( $base, $scope, $deref, $sizeLim, $timeLim, $filterStr, $attrOnly,
         @attrs )
       = @_;
-    print {*STDERR}, "====$filterStr====\n";
+    print {*STDERR} "====$filterStr====\n";
     $filterStr =~ s/\(|\)//gm;
     $filterStr =~ s/=/: /m;