# Usage: perl5.36.3 check-size.pl ./data-mixed

use v5.32;
use warnings;
use warnings qw[ FATAL utf8 ];
use open qw[ :encoding(UTF-8) :std ];

use Data::Dumper;
local $Data::Dumper::Sortkeys = 1;

my $data = $ARGV[0]
   or die qq[Give a file to count sizes of different kinds.\n];

my %stat = ( q/-s/ => -s $data );

open( my $fh, q/</, $data )
   or die qq/Cannot open $data to read: $!/;

my $string;
$stat{q/read/} = read( $fh, $string, $stat{q/-s/} )
                  or die qq/read from \$fh failed: $!/;

close( $fh )
   or die qq/Could not close $data: $!/;

$stat{q/length/} = length( $string );
$stat{q/tr/} = $string =~ tr///c;

print( Dumper( \%stat ) );