perl -lne
'my $KiB =$_; 
my @pref = qw(K M G T P);
my $i = 0; 
while($i<@pref){ 
last if $KiB/1024 < 1; 
$KiB/=1024;
$i++
} 
printf "${_}KiB = %.3f$pref[$i]iB\n ",$KiB'