#!/usr/bin/perl
use warnings;
use Devel::Size qw(size total_size);

my $file = shift || $0;
my $statfilesize = -s $file;
print "statfilesize $file ->$statfilesize\n";

my $count=0;

open (FH,"<$file") or die "Couldn't open: $!";
my $buf = do {local $/; <FH>};
close FH;

foreach my $byte (unpack "C*", $buf) {
      $count++
}

print "count->$count -> total size of slurped string $file-> ", size(\$buf),"\n";