use strict;
use warnings;

open FILE, "<file";
my $string;
sysread(FILE, $string, 1024);
print length($string);
[download]