format_bytes () {
  perl -MNumber::Bytes::Human=format_bytes -lE 'for( @ARGV ) { say format_bytes( $_ ); }' "$@"
}