I think the buffer for read and for sysread must be similarly initialized.

my $read = read($fh, my $buf='', $MAX_READ);
[download]