my @info = Win32::DriveInfo::DriveSpace( 'C' );
printf 'Total:%11d Used:%11d Free: %11d', 
       $info[5], $info[5]-$info[6], $info[6];

Total: 1076027392 Used: 1040338944 Free:    35688448

##</code><code>##

#! 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