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