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;
 }