my $size= -s; my $u= "TGMk"; my $p= ''; while( $u && 512 < $size ) { $p= chop $u; $size /= 1024 } $size= 10 <= $size ? int($size) : sprintf "%.1f", $size; print $size, $p, "B";