perl -MFile::Find -le 'find { wanted => sub {print $File::Find::fullname}, follow => 1}, shift' dir_to_scan