cpan
install Win32::DirSize


##</code><code>##

cpan> install Win32::DirSize.pm
Running install for module 'Win32::DirSize'
  ARICH/Win32-DirSize-1.13.tar.gz
  Has already been unwrapped into directory C:\STRAWB~1\cpan\build\Win32-DirSize-1.13-UTo9oV
  ARICH/Win32-DirSize-1.13.tar.gz
  Has already been prepared
  ARICH/Win32-DirSize-1.13.tar.gz
  Has already been made
  ARICH/Win32-DirSize-1.13.tar.gz
  Has already been tested successfully
  ARICH/Win32-DirSize-1.13.tar.gz
  Already done


##</code><code>##

use strict;  
use Win32::DirSize;
 
my $Result = dir_size(
  "C:\\TEMP",
  my $DirInfo, # this stores the directory information
);