my @disk_space = qx{df -k .};
	map { $_ =~ s/ +/  /g } @disk_space;