sub round_it {
  my $num = shift;
  my $gb = (1024 * 1024 * 1024);
  my $mb = (1024 * 1024);
  my $kb = 1024;

   ($num > $gb) ? return sprintf("%dGB", $num/$gb) :
   ($num > $mb) ? return sprintf("%dMB", $num/$mb) :
   ($num > $kb) ? return sprintf("%dKB", $num/$kb) :
   return $num . 'B';
}