step 1) obtain list of user directories while following symlinks to said directories

step 2) scan these directories while not following symlinks

Its two calls

my( @userdirs ) = GetUserDirs();
ScanUserDirs( \@userdirs );
[download]

Its two seperate calls, say

use File::Find::Rule qw/ find rule /;
my @userdirs = rule( 
'directory' , 
maxdepth => 1,
 )->extras({ follow => 1 })
->in( 'startdir' );
...
[download]