in reply to File::Find question

Use the -r file operator to see whether you have read permission to the directory.
if (-r $dir) { find(sub { $total += -s }, $dir); $total = ($total / 1024) / 1024; $total = sprintf("%0.2f", $total); print OUT "$dir, $total, mb, \n"; } else { # however you want to deal with this condition }