#! perl -sw
use strict;
use Win32::OLE;

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

my $folder = $fs->GetFolder('e:/perl');
print 'e:\perl: ', $folder->size(), ' used', $/;

e:\perl: 52488590 used