Help for this page

Select Code to Download

Select or download this

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

Select or download this

#! perl -sw
use strict;
...
print 'e:\perl: ', $folder->size(), ' used', $/;

e:\perl: 52488590 used