df -k|perl -ape'map{while(1024<$_){$_/=1024;$i++}$i="%6.1f".substr"KMG",$i,1;$_=sprintf$i,$_}@F[1..3];$_=join"\t",@F,$/'