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

find(\&wanted, ".");

sub wanted {
return if -d;
print "$File::Find::name", "\n"; 
}