@suf=qw(B KB MB GB TB);while($sum>=1024){$sum/=1024;shift @suf}print $sum," ",shift @suf