Select Code to Download

#!/usr/bin/perl

...
print STDOUT ($filter->check("Bim") ? "Found" : "Not Found"), "\n";

exit;

jreades@sort:~>> ./test.pl
Use of uninitialized value in numeric gt (>) at Bloom/Filter.pm line 1
+26.
...
Argument "" isn't numeric in numeric eq (==) at Bloom/Filter.pm line 8
+6.
Argument "" isn't numeric in numeric eq (==) at Bloom/Filter.pm line 8
+6.
Found