use warnings;
use strict;

use File::Find;

my $dir = '.';

find ({ wanted => \&wanted, no_chdir => 1 }, $dir);

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