finddir("$config{home}$user{site_id}");

sub finddir {
   my ($root, $relative) = @_;
   chomp ( $root );
   $root .= '/' unless ( $root =~ m|/$| );
   $relative .= '/' if ( defined($relative) and ( $relative !~ m|/$| )
+);
   local *DIR;
   opendir ( DIR, $root . $relative );
   my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
   foreach $file (@userfiles) {
       next unless ( -d "$root$file" );
       print "$relative$file";
       finddir($root, $relative . $file );
   }
}
[download]