print "Free space: " . (split(/\s+/, qx(dir c: | find /I "bytes free")))[3];

=pod
Output:
Free space: 29,143,982,080
=cut