alright I have this:
finddir("$config{home}$user{site_id}");
sub finddir {
my $root = shift;
chomp ( $root );
$root = $root . '/' unless ( $root =~ m|/$| );
local *DIR;
opendir ( DIR, $root );
my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
foreach $file (@userfiles) {
next unless ( -d "$root$file" );
print "$dir";
finddir("$root$file");
}
}
Now when I tell it to print, I dont want it to print "$config{home}$user{site_id}$file". I just want it to print the file, so how can I take the $config{home}$user{site_id} out.