Select Code to Download

use Win32::DriveInfo;
use constant {
...
printf "%.3f GB free of total %.3f GB\n", 
     $info[ TOTAL_FREE ] / 1024**3, 
     $info[ TOTAL_BYTES ] / 1024**3;