use File::Find;

find({wanted => sub {-f and print "file = $_\n"},follow => 1},'.');