magnitude

#!/usr/bin/perl

$value = $ARGV[0];

@units = qw/b Kb Mb Gb Tb Pb Eb/;

$unit = shift(@units);
for ($try = $value ; 1024 <= $try ; $try /= 1024)
{
   $unit = shift(@units);
}

printf("%s = %3.2f %sn", $value, $try, $unit);