sub unitFormat {
  my @unit = ("B","KB","MB","GB","TB","PB");
  my $index = 0;
  my($value) = pop;

  while($value > 1024) {
    $value /= 1024;
    $index++;
  }

  $value = sprintf("%.3f",$value);
  return "$value $unit[$index]";
}