in reply to File Find Dir and name

cli$ perl -MFile::Find -e 'find( sub{ print $File::Find::name,$/ }, ".
+" )'

[download]


In Section Seekers of Perl Wisdom