my( @userdirs ) = GetUserDirs();
ScanUserDirs( \@userdirs );

##</code><code>##

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