use Win32::OLE;

my $size = Win32::OLE->CreateObject('Scripting.FileSystemObject')
    ->GetFolder( $TargetPath )
    ->size();