Two different functions to generate human readable bytes.

humanReadable.pl

#OLD
sub humanBytes {
	my $bytes = shift(@_);
	if ($bytes > 1125899906842624){
		return sprintf("%.2f Pb", $bytes / 1125899906842624);
	}elsif ($bytes > 1099511627776){
		return sprintf("%.2f Tb", $bytes / 1099511627776);
  }elsif ($bytes > 1073741824){
		return sprintf("%.2f Gb", $bytes / 1073741824);
	}elsif ($bytes > 1048576){
		return sprintf("%.2f Mb", $bytes / 1048576);
  }elsif ($bytes > 1024){
		return sprintf("%.2f Kb", $bytes / 1024);
  }else{
		return sprintf("%.0f bytes", $bytes);
  }
}
#END OLD

#NEW
sub humanBytes {
    my $bytes = shift(@_);
    my @units = ('B', 'KiB', 'MiB', 'GiB', 'TiB', 'PiB', 'EiB', 'ZiB', 'YiB');
    my $unit_measure = 0;
    while( $bytes >= 1024 ){
        $bytes /= 1024;
        $unit_measure++;
    }
    $bytes = sprintf("%.2f", $bytes);
    return "$bytes $units[$unit_measure]";
}
#END NEW