in reply to Re^4: Strictly nested sub warnings
in thread Strictly nested sub warnings

Also might be interesting thing to know about; File::Find::Rule. 

use File::Find::Rule;

my $dir = shift || ".";
print join "\n", File::Find::Rule->symlink->in($dir);

[download]

In Section Seekers of Perl Wisdom