my $free = ( split ' ', qx{ dir|find "bytes free" } )[2];
$free =~ s/\D//g;