search first my friend! I have found this How do I recursively process files through directories, one of my first (newbiest's) contribution..

if you are in a win32 env i found that the following code is very much faster:

sub  get_dir_size     {
  my $root  = shift;
  return 'NOT EXISITING FOLDER'  unless -e $root;
  my $fs = Win32::OLE->CreateObject('Scripting.FileSystemObject');
  my $folder = $fs->GetFolder($root);
  my $dimensione  =  $folder->size();
  $fs = undef;
  return $dimensione;
 }
[download]

HtH Lor*