The solution is

just to count the bytes, if that's really what you want.

my $bytecount = (stat $file)[7];
[download]