{
  my $offset;
  sub build_data {
    seek DATA, ($offset ||= tell DATA), 0;
    return [ <DATA> ];
  }
}