You can set $/ to a reference to a literal number. Then the file will be read in chunks of that size.

{
    local $/ = \1024;
    while (<$fh>) {
        # do things with 1k chunks in $_
    }
}
[download]