my @sizes=qw( B KB MB GB TB PB);
sub nice_size
{
  my $size = shift;
  my $i = 0;

  while ($size > 1024)
  {
    $size = $size / 1024;
    $i++;
  }
  return sprintf("%.3f$sizes[$i]", $size);
}