{
  local $/ = \512;

  while (<FILE>) {
    # process the 512 bytes you have in $_
  }
}