sub best_size {
   my $r = shift;
   ($r > (1024 * 1024)) ? return sprintf("%1.3f", $r/(1024*1024)) . 'MB' :
   ($r > 1024)          ? return sprintf("%1.3f", $r/1024)        . 'KB' :
   return $r . 'B';
}