use File::Find;

find(sub {
	print "$File::Find::name\n" if /^start/;
}, "test");