Select Code to Download

use Win32::DriveInfo;

...
printf "%.3f GB free of total %.3f GB\n", 
     $info[ TOTAL_FREE ] / 1000**3, 
     $info[ TOTAL_BYTES ] / 1000**3;

c:\Perl>drivelist.pl
\\sql-01\d$
Drive   Free    Tot     PctFree
...
02/18/2010  10:59 PM               628 drivelist.pl
               2 File(s)          1,257 bytes
               9 Dir(s)  33,590,083,584 bytes free

c:\Perl>perl -v

...

Binary build 1003 [285500] provided by ActiveState http://www.ActiveSt
+ate.com
Built May 13 2008 16:52:49