#!perl -p
if($_>1023){for($i=0;$_>1023;++$i){$_/=1023};$_=sprintf"%.2f %s\n",$_,(_,"KB","MB")[$i]}