{
  # Always change Perl special vars localised in a block
  local $/ = \1024;

  while (<FILE>) {
    # $_ contains the next 1024 bytes from FILE
  }
}