A: Added examples.

examples/find-perl-binary.pl

@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Basename;
+use File::DirWalk;
+
+my $dw = new File::DirWalk();
+
+$dw->onDirEnter(sub {
+	my ($path) = @_;
+
+	print "$path\n";
+	
+	if (basename($path) =~ /sbin|lib|share|local|include|libexec|X11/) {
+		return PRUNE;
+	}
+
+	return SUCCESS;
+});
+
+$dw->onFile(sub {
+	my ($path) = @_;
+
+	print "$path\n";
+	
+	if (basename($path) eq "perl") {
+		return ABORTED;
+	}
+
+	return SUCCESS;
+});
+
+$dw->walk("/usr");