use File::Find;
find({ wanted => \&process, follow => 1 }, '.');