my %config = ( home => '/home/cjf/' );
my %user   = ( site_id => 'code'    );

my @alldir = finddir("$config{home}$user{site_id}");
print $_, "\n" for @alldir;

sub finddir {

   my $root = shift;
   chomp $root;
   $root = $root . '/' unless ( $root =~ m|/$| );
   local *DIR;
   opendir DIR, $root or die $!;
   my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
   my @direct;
   foreach my $file (@userfiles) {
       next unless ( -d "$root$file" );
       my $dir = "$root$file";
       $dir =~ s/^\Q$config{home}$user{site_id}\E//;
       push(@direct, $dir);
   }
   return @direct;
}