use strict;
use warnings;
use File::Find::Rule;
use sigtrap 'handler' => \&abort, 'any';

### So I can set up a kill command for testing.
print $$, "\n";
<>;

my $continue = 1;

sub abort {
	print "Exiting...\n";
	$continue = 0;
}

File::Find::Rule->exec(sub { return $continue })
	->directory
	->exec(
		sub {
			print $_[2], "\n";
		}
	)
	->in('/wherever');