use warnings;
use strict;
use File::Find::Rule;

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