my $free = ( split "\n", qx{ dir } )[-1];
$free = ( split ' ', $free )[2];
$free =~ s/\D//g;
print $free;